Hallo VB-Freunde
zu aller erst mein problem:
ich möchte ein script, dass mir alle Dateien der Unterordner in eine txt speichert.
ich HABE die SuFU und Gidf.de genutzt, jedoch komme ich nicht auf DIE lösung, die ich benötige.
Ich fand:
Funktioniert auch super, jedoch:
- in der txt-datei sollen die Dateien des AKTUELLEN verzeichnisses NICHT angezeigt werden, NUR die dateien in unterordnern (mit absolutem oder relativen pfad, egal)
- die namen der UNTERORDER sollen auch nicht angezeigt werden.
beispiel:
+root (ebene in der mein script liegt)
listeErstellen.vbs
datei1
datei 2
- Unterordner 1 (1 ebene unter root)
unterdatei 1.1
- Unterordner 2 (1 ebene unter root)
unterdatei 2.1
unterdatei 2.2
- UnterUnterordner 3 (2 ebene unter root)
unterunterdatei 3.1
unterunterdatei 3.2
In der Ausgabe sollen NUR
"pfad/unterdatei 1.1
pfad/unterdatei 2.1
pfad/unterdatei 2.2
pfad/unterunterdatei 3.1
pfad/unterunterdatei 3.2"
stehen.
Ich selbst bin leider ein absoluter VB-Noob, entwickle nur in Java.
zu aller erst mein problem:
ich möchte ein script, dass mir alle Dateien der Unterordner in eine txt speichert.
ich HABE die SuFU und Gidf.de genutzt, jedoch komme ich nicht auf DIE lösung, die ich benötige.
Ich fand:
Quellcode
- 'ListAllFilesAndFolders2TextFile.vbs
- Set fso = CreateObject("Scripting.FilesystemObject")
- Set Liste = fso.OpenTextFile("Liste.txt", 2, True)
- SkriptPfad = WScript.ScriptFullNameSkriptPfad = Left(SkriptPfad, Len(SkriptPfad) - Len(WScript.ScriptName))
- DoFolders fso.GetFolder(skriptPfad)
- Liste.Close
- WScript.Echo "Fertig."
- Sub DoFolders(Folder)
- If LCase(Folder.Name) <> LCase("System Volume Information") Then
- For Each File In Folder.Files
- Liste.WriteLine File.Path
- Next
- For Each SubFolder In Folder.SubFolders
- Liste.WriteLine SubFolder.Path
- DoFolders(SubFolder)
- Next
- End If
- End Sub
Funktioniert auch super, jedoch:
- in der txt-datei sollen die Dateien des AKTUELLEN verzeichnisses NICHT angezeigt werden, NUR die dateien in unterordnern (mit absolutem oder relativen pfad, egal)
- die namen der UNTERORDER sollen auch nicht angezeigt werden.
beispiel:
+root (ebene in der mein script liegt)
listeErstellen.vbs
datei1
datei 2
- Unterordner 1 (1 ebene unter root)
unterdatei 1.1
- Unterordner 2 (1 ebene unter root)
unterdatei 2.1
unterdatei 2.2
- UnterUnterordner 3 (2 ebene unter root)
unterunterdatei 3.1
unterunterdatei 3.2
In der Ausgabe sollen NUR
"pfad/unterdatei 1.1
pfad/unterdatei 2.1
pfad/unterdatei 2.2
pfad/unterunterdatei 3.1
pfad/unterunterdatei 3.2"
stehen.
Ich selbst bin leider ein absoluter VB-Noob, entwickle nur in Java.