Sub
x()
Dim
fso
As
New
FileSystemObject
With
fso.GetFile(
"C:\Users\...\Downloads\75.tif"
)
Debug.Print
"Dateiname: "
& .Name
Debug.Print
"Pfad: "
& .Path
Debug.Print
"Dateierstellung: "
& .DateCreated
Debug.Print
"Letzter Lesezugriff: "
& .DateLastAccessed
Debug.Print
"Letzter Schreibzugriff: "
& .DateLastModified
Debug.Print
"Attribute: "
& .Attributes
Debug.Print
"Größe: "
& .Size
End
With
End
Sub