AW: Erstellungsdatum einer beliebigen Datei
18.09.2009 23:24:15
Daniel
Hi
ja, man kann im prinzip alle Dateiinformationen auslesen, probier mal dieses Makro.
Sub Einlesen()
Dim myPath
Dim fd As FileDialog
Dim Datei As String
Dim Ze As Long
Dim arrHeaders(35) As String, objShell As Object, objFolder As Object, I As Long, strFileName _
As Variant
Ze = 4
Set fd = Application.FileDialog(msoFileDialogFolderPicker)
If fd.Show Then
Cells(4, 1).CurrentRegion.Offset(1, 0).ClearContents
myPath = fd.SelectedItems(1)
Cells(1, 2).Value = myPath & "\"
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.NameSpace(myPath)
' For I = 0 To 34
' arrHeaders(I) = objFolder.GetDetailsOf(objFolder.Items, I)
' Next
For Each strFileName In objFolder.Items
If objFolder.GetDetailsOf(strFileName, 2) "Dateiordner" Then
Ze = Ze + 1
Cells(Ze, 1) = objFolder.GetDetailsOf(strFileName, 0) 'Name
Cells(Ze, 2) = Mid$(Cells(Ze, 1), InStrRev(Cells(Ze, 1), "."))
Cells(Ze, 1) = Left$(Cells(Ze, 1), InStrRev(Cells(Ze, 1), ".") - 1)
Cells(Ze, 3) = objFolder.GetDetailsOf(strFileName, 3) 'geändert
Cells(Ze, 4) = objFolder.GetDetailsOf(strFileName, 4) 'erstellt
Cells(Ze, 5) = objFolder.GetDetailsOf(strFileName, 25) 'aufgenommen am
End If
Next strFileName
End If
End Sub
das Makro listet alle Dateinamen und die wichtigsten Infos aus einem zu wählenden Ordner auf.
Gruß, Daniel.
ps. so genau verstanden, wie das funktioniert hab ich nicht, weil ich den Kern auch irgendwo aus dem Internet rauskopiert habe, aber es funktioniert.
Gruß, Daniel