Aufnahedatum jpg mit .getdetailsof
26.05.2020 00:29:52
claudia
ichhabe einProgramm geschrieben, das mir rekursiv alle Ordner & Unterordner durchgeht & die Dateien in das Aufnahme.Datum umbenennt. Manchmal stht es in created, manchmal in lastmodified oder auch in lastacessed. (nehme einfach das kleinste, das passt schon. Jetzt bin ich jedoch auf mehrere Folder gestossen, wo all diese 3 Felder über den gesamten Folder einheitlich mit dem 7-12-2019 gefüllt ist, das aufnahmedatum (das auch im Explorer unter "Datum" angezeigt wird) zu verschiedenen Datenin in dem Vorjahren liegt. Habe mich ein bisschen schlau gemacht, dieses Datum lässt sich nicht so bequem wie die anderen extrhieren. sondern man muss dieerweiterten Dateiinfos auslesen. Geht anscheinend über .getdetailsof, mein Feld steht in POsition 12.
Habe es wohl etwas naiv rinfach so versucht:
test = oFolder.getdetailsof(oFile, 12)
Erhalte jedoch die Fehermeldung, dass das Objekt oder die Methode nicht unterstütz wird.
Weiss jemand, wie ich das Programm modifizieren müsste?
Herzlichen Dank,
Claudia
So sieht der ganze code aus:
Option Explicit
Option Compare Text
Private sRootPath As String
Private lRowCounter As Long
Private oSheet As Object
'Start der Routine: Call MWDateienMitUnterordnernAuslesen
Public Sub MWDateienMitUnterordnernAuslesen()
sRootPath = Range("Dateipfad").Value
Set oSheet = Sheets("pfad")
Call ReadSubFolder(sRootPath)
Set oSheet = Nothing
MsgBox "Done"
End Sub
Private Sub ReadSubFolder(ByVal sPath As String)
Dim oFSO As Object
Dim oFolder As Object
Dim oSubFolder As Object
Dim oSHELL As Object
Dim oFile As Object
Dim strEXT, neu, test As String
Dim objFolder As Object
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFolder = oFSO.getfolder(sPath)
For Each oSubFolder In oFolder.SubFolders
For Each oFile In oSubFolder.Files
test = oFolder.getdetailsof(oFile, 12)
strEXT = "." & oFSO.getextensionname(oFile)
If oFile.datecreated