Hi @ all,
Ich wollte folgendes Script nutzen
um alle zip & sit Dateien samt Pfad
in eine Exceltabelle zu bekommen.
Solange das "Verzeichnis" auf eine lokale Platte zeigt funktioniert
das Script auch.
Nur leider nicht auf Netzwerklaufwerken oder Netzwerkpfaden.
Hat jemand da eine Idee?
Vielen Dank im Vorraus!
Gruß
Christof
Dim i As Long
Dim Verzeichnis As Variant
Dim icount As Integer
Verzeichnis = "\\Server\Unterverzeichnis\"
Columns("A:F").Select
Selection.Delete Shift:=xlToLeft
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.Filename = "*.zip"
.SearchSubFolders = True
.Execute
icount = .FoundFiles.Count
For i = 1 To icount
laenge = Len(.FoundFiles(i))
Range("B" & i) = Mid(.FoundFiles(i), 13, laenge)
Next i
sitzeile = icount
End With
With Application.FileSearch
.NewSearch
.LookIn = Verzeichnis
.Filename = "*.sit"
.SearchSubFolders = True
.Execute
icount = .FoundFiles.Count
For i = 1 To icount
laenge = Len(.FoundFiles(i))
Range("B" & i) = Mid(.FoundFiles(i), 13, laenge)
Next i
End With