SubFolder auslesen....
03.02.2004 15:23:40
Matze
ich versuche mit folgendem Makro die Unterordner eines Pfades auszulesen:
Sub ShowFolderList(folderspec)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
s = s & f1.name
s = s & vbCrLf
Next
MsgBox s
End Sub
Jedoch wenn ich versuche die Unterordner von "System Volume Information" auszulesen bekomme ich den Laufzeitfehler Nr. 70, weil der Ordner geschützt ist.
Hat jemand ne Idee, wie ich sowas abfangen kann?
Anzeige