Hallo
Dateiattribute!
Vielleicht hilfreich!
Ordner wählen der zu untersuchenden Dateien
Gruß Michael
Sub ShowFile()
Dim Dpfad As String, DateiName As String
Dim Lzeile As Long
Dim FileO As Object, Files As Object
Set FileO = CreateObject("Scripting.FileSystemObject")
Dpfad = OrdnerAuswahl
DateiName = Dir(Dpfad & "*.*")
Do While DateiName <> ""
Set Files = FileO.GetFile(Dpfad & DateiName)
With Worksheets(1)
Lzeile = .Cells(.Rows.Count, 1).End(xlUp).Row + 1
.Cells(Lzeile, 1) = Files.Name
.Cells(Lzeile, 2) = Files.DateCreated
.Cells(Lzeile, 3) = Files.DateCreated
.Cells(Lzeile, 4) = Files.DateLastModified
.Cells(Lzeile, 5) = Files.DateLastModified
If .Cells(Lzeile, 4) <> .Cells(Lzeile, 2) Or .Cells(Lzeile, 5) <> .Cells(Lzeile, 3) Then
.Range(.Cells(Lzeile, 1), .Cells(Lzeile, 6)).Font.ColorIndex = 5
.Cells(Lzeile, 6) = "*"
Else
.Range(.Cells(Lzeile, 1), .Cells(Lzeile, 5)).Font.ColorIndex = 1
End If
DateiName = Dir
End With
Loop
End Sub
Function OrdnerAuswahl() As String
On Error Resume Next
Dim AppShell As Object
Dim BrowseDir As Variant
Set AppShell = CreateObject("Shell.Application")
Set BrowseDir = AppShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
OrdnerAuswahl = BrowseDir.items().Item().Path & "\"
End Function