Mit VBScript alle Dateien (NUR DIE DATEIEN, keine Ordner) eines Laufwerks ausgeben
Hallo Forum
Ich suche eine Möglichkeit, mit VBScript alle Dateien auf einem Laufwerk (d.h. alle Dateien in allen Unterordnern) auszugeben. Die Ordner sollen nicht ausgegeben werden, nur die Dateien mit den dazugehörigen Pfaden.
Ich suche eine Möglichkeit, mit VBScript alle Dateien auf einem Laufwerk (d.h. alle Dateien in allen Unterordnern) auszugeben. Die Ordner sollen nicht ausgegeben werden, nur die Dateien mit den dazugehörigen Pfaden.
Please also mark the comments that contributed to the solution of the article
Content-Key: 65549
Url: https://administrator.de/contentid/65549
Printed on: April 25, 2024 at 23:04 o'clock
5 Comments
Latest comment
Z.B. so:
' * Benötigte Objekte erzeugen *
Set fs = CreateObject("Scripting.FileSystemObject")
Set Folder = fs.GetFolder("D:")
VerzDurchgang Folder
' *
' * Funktionen & Prozeduren *
' *
Sub VerzDurchgang(Verzeichnis)
On Error Resume Next
FilesDurchgang Verzeichnis
For each folder in Verzeichnis.Subfolders
If err.number = 0 then
VerzDurchgang folder
End If
Next
End Sub
Sub FilesDurchgang(Verzeichnis)
' * Fehlerhandling abschalten, wegen Zugriffsverletzungen
On Error Resume Next
For each file in Verzeichnis.files
' * Was jetzt tun?
wscript.echo file.Path
Next
End Sub
Zugriffs-Fehler werden allerdings nicht abgefangen, sondern nur ignoriert.
EDIT: Mal wieder in die fehlerhafte Code Anzeige reingelaufen, deswegen als normaler Text.
' * Benötigte Objekte erzeugen *
Set fs = CreateObject("Scripting.FileSystemObject")
Set Folder = fs.GetFolder("D:")
VerzDurchgang Folder
' *
' * Funktionen & Prozeduren *
' *
Sub VerzDurchgang(Verzeichnis)
On Error Resume Next
FilesDurchgang Verzeichnis
For each folder in Verzeichnis.Subfolders
If err.number = 0 then
VerzDurchgang folder
End If
Next
End Sub
Sub FilesDurchgang(Verzeichnis)
' * Fehlerhandling abschalten, wegen Zugriffsverletzungen
On Error Resume Next
For each file in Verzeichnis.files
' * Was jetzt tun?
wscript.echo file.Path
Next
End Sub
Zugriffs-Fehler werden allerdings nicht abgefangen, sondern nur ignoriert.
EDIT: Mal wieder in die fehlerhafte Code Anzeige reingelaufen, deswegen als normaler Text.