Zugriff auf das Dateisystem


Der folgende Code kann in eine Prozedur oder Funktion geschrieben werden.

Dateisystem
Er listet alle Ordner und Dateien eines Pfades auf und schreibt diese in
Excel untereinander weg.

Dim FSO As FileSystemObject
Dim file As Files
Dim folders As Folders
Dim vStr As String
Dim s As Folder
Dim f As file
Dim pfad as string
pfad = „C:\“
Set FSO = New FileSystemObject

On Error GoTo x
Set file = FSO.GetFolder(pfad).Files
Set folders = FSO.GetFolder(pfad).SubFolders

Dim i As Integer
i = 1
‚Diese beiden Schleifen schreiben die Ordner und die Dateien in die Spalte A vom Tabellenblatt

For Each s In folders2
Cells(i, 1).Value = „\“ & s.Name
i = i + 1
Next
i = i + 1
For Each f In file2
Cells(i, 1).Value = f.Name
i = i + 1
Next
x:

Hat dir diese Seite geholfen oder möchtest du, dass ich weitere Anwendungsfälle einfach erkläre und darstelle?
Dann sende mir doch einfach eine kleine Spende (1,-€) damit ich sehe, dass deine Anfrage ernst gemeint ist.