Möchte gerne eine Liste aller Dateien in einem bestimmten Laufwerk/Verzeichnis erstellen. Das Makro funktioniert einwandfrei, wenn ich es mit einem Verzeichnis auf der internen Fesplatte laufen lasse (z.B. C), nicht aber wenn ich ein NT-Serververzeichnis auswähle. Fehler 53, File not found. Das File listet er, aber mit FileDateTime und FileLen hat er Probleme.
Kann es sein, dass dies an der Sicherheitseinstellung von Windows NT liegt? (bin lediglich User und nicht Administrator)
Gibt es eine Lösung?
Dim sFile As String, sPath As String
Application.ScreenUpdating = False
sPath = "C:\PFAD"
If Right(sPath, 1) <> "/" Then sPath = sPath & "\"
sFile = Dir(sPath)
Do While sFile <> ""
zeilennr = Range("A65536").End(xlUp).Row + 1
Cells(zeilennr, 1) = sFile
Cells(zeilennr, 2) = FileDateTime(sFile)
Cells(zeilennr, 3) = FileLen(sFile)
sFile = Dir()
Loop
Application.ScreenUpdating = True
Herzlichen Dank im voraus.
Chris