Hallo Leute,
ich versuche mit diesem Code eine Liste der Daten zu erstellen. Die Dateien haben Schreibschutz (attrib +r +s). Kann es deswegen sein, dass ich nichts aufgelistet bekomme? Mit anderen Verzeichnissen funktioniert es.
Was muss ich bitte ändern?
Dim strVerzeichnis As String
Dim StrDatei As String
Dim I As Integer
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "P:\Standards\Daten\"
StrTyp = "*.*"
Dateiname = Dir(strVerzeichnis & StrTyp)
I = 3
Do While Dateiname ""
Cells(I, 1).Value = strVerzeichnis & Dateiname
Cells(I, 2).Value = FileDateTime(strVerzeichnis & Dateiname)
Cells(I, 3).Value = FileLen(strVerzeichnis & Dateiname) / 1024
I = I + 1
Dateiname = Dir
Loop
Gruß,
Sergej