lollipopo
Goto Top

vbscript ordner auflisten und in txt speichern

Hi Leute...
Hab ein kleines Problem...
Ich hab hier ein Skript geschrieben welches die verzeichnisse und unterverzeichnisse von /programme und /windows auflistet.
Jedoch will ich diese Liste in .txt file abspeichern.das krieg ich net hin face-smile
Hier mein Sprikt.

Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Programme"
MsgBox ("Verzeichnis --> " & objStartFolder & " <-- wird durchsucht")

Set objFolder = objFSO.GetFolder(objStartFolder)
WScript.Echo objFolder.Path

ShowSubFolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
WScript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
WScript.Echo
ShowSubFolders Subfolder
Next
End Sub
MsgBox ("Das Verzeichnis --> " & objStartFolder & " <-- wurde durchsucht")


Set objFSO = CreateObject("Scripting.FileSystemObject")
objStartFolder = "C:\Windows"
MsgBox ("Verzeichnis --> " & objStartFolder & " <-- wird durchsucht")

Set objFolder = objFSO.GetFolder(objStartFolder)
WScript.Echo objFolder.Path

ShowSubFolders objFSO.GetFolder(objStartFolder)

Sub ShowSubFolders(Folder)
For Each Subfolder In Folder.SubFolders
WScript.Echo Subfolder.Path
Set objFolder = objFSO.GetFolder(Subfolder.Path)
WScript.Echo
ShowSubFolders Subfolder
Next
End Sub
MsgBox ("Das Verzeichnis --> " & objStartFolder & " <-- wurde durchsucht")

Content-Key: 101814

Url: https://administrator.de/contentid/101814

Ausgedruckt am: 29.03.2024 um 09:03 Uhr

Mitglied: 60730
60730 14.11.2008 um 11:40:29 Uhr
Goto Top
Servus,

zum einen:

ein simples:
dir /ad %windir%\ /s >meine.txt
bzw:
dir /ad %programfiles%\ /s >>meine.txt

bringt das ganze auch schon.

Zum anderen - du mußt natürlich die Ausgabe von Wscript Echo in eine Datei unleiten.

@cscript "mein.vbs" //NoLogo > meine.txt


Gruß
Mitglied: waldgnarf
waldgnarf 11.12.2008 um 11:11:50 Uhr
Goto Top
Hallo,
oder:

For Each Unterordner In Ordner.SubFolders
OrdnerListe=OrdnerListe & Unterordner.Name &vbCrLf
Next

objFSO.CreateTextFile("ORDNERLISTE.txt",2).WriteLine OrdnerListe  

Gruß waldgnarf