Versteckte Dateine mit auflisten?
25.10.2020 16:19:08
Sergej
mit diesem Makro kann ich die Dateien mit vollständigem Pfad, Dateiname, Änderungsdatum und die Dateigröße ab der dritten Zeile für vorgegebenen Pfad auslesen. Soweit alles in Ordnung.
Was muss ich bitte im Code ergänzen, damit auch schreibgeschützte und versteckte Dateien mit ausgelesen werden? Die Dateien haben evtl. folgenden Attribute attrib +r +s +h /S /D und werden nicht mit aufgelistet.
Sub Dateiliste_simple()
On Error Resume Next
With Application
.ScreenUpdating = False
.EnableEvents = False
CalculationMode = .Calculation
.Calculation = xlManual
UpdateLinks = .AskToUpdateLinks
.AskToUpdateLinks = False
.DisplayAlerts = False
End With
Dim strVerzeichnis As String
Dim strVerzeichnis_DUS As String
Dim strDatei As String
Dim i As Integer
Dim StrTyp As String
Dim Dateiname As String
strVerzeichnis = "C:\Daten\Auswertungen\2020\"
StrTyp = "*.*"
Dateiname = Dir(strVerzeichnis & StrTyp)
i = 3
Do While Dateiname ""
Cells(i, 1).Value = strVerzeichnis & Dateiname
Cells(i, 2).Value = Dateiname
Cells(i, 3).Value = FileDateTime(strVerzeichnis & Dateiname)
Cells(i, 4).Value = FileLen(strVerzeichnis & Dateiname) / 1024
i = i + 1
Dateiname = Dir
Loop
With Application
.ScreenUpdating = True
.EnableEvents = True
.Calculation = CalculationMode
.DisplayAlerts = True
.AskToUpdateLinks = UpdateLinks
.CutCopyMode = False
.StatusBar = False
End With
End Sub
Beste Grüße,
Sergej