ich habe einen Code der mir aus einem VErzeichnis die Dateien auflistet und dazu schreibe ich mir ein paar Dateiinfos raus.
SONGNAME = Left(AITEM.Name, Len(AITEM.Name) - 4)
HYPENAME = VORBELEG & "\" & AITEM.Name
DATTYP = Right(AITEM.shortname, 3)
SLFIND = InStrRev(VORBELEG, "\", -1) + 1
ONAME = Mid(VORBELEG, SLFIND, Len(VORBELEG) - (SLFIND - 1))
ActiveSheet.Hyperlinks.Add Anchor:=Cells(lngAkt + 4, 1), Address:=HYPENAME, TextToDisplay:=SONGNAME
Cells(lngAkt + 4, 2) = VORBELEG
Cells(lngAkt + 4, 3) = AITEM.datecreated
Cells(lngAkt + 4, 4) = AITEM.Size
Cells(lngAkt + 4, 5) = ONAME
Cells(lngAkt + 4, 6) = DATTYP
'Cells(lngAkt + 4, 7) = AITEM.Author
'Cells(lngAkt + 4, 8) = AITEM.bitrate
Cells(lngAkt + 4, 9) = AITEM.datelastmodified
lngAkt = lngAkt + 1
Next
Mir fehlen jetzt diverse Dateiinfos (fett markiert), ich weiss aber nicht wie ich die ansprechen soll!
Einen Source den ich im Netz gefunden habe wäre eine Alternative, allerdings bin ich überrascht warum der funktioniert!? Also besser: DEN VERSTEH ICH NUN GAR NICHT MEHR!
Public Sub test()
Const STRFOLDER As String = "E:\PRI\SONGS\RESTMUCKE"
Dim ObjShell As Object, ObjFolder As Object
Dim BYTINDEX As Byte, intColumn As Integer, lngRow As Long
Dim varName ', arrHeaders(37)
If Dir(STRFOLDER, 16) = "" Then
MsgBox "Der Ordner " & STRFOLDER & " wurde nicht gefunden!", 64, "Hinweis"
Exit Sub
End If
Application.ScreenUpdating = False
Set ObjShell = CreateObject("Shell.Application")
Set ObjFolder = ObjShell.Namespace(STRFOLDER)
intColumn = 1
' For BYTINDEX = 0 To 37
' arrHeaders(BYTINDEX) = objFolder.GetDetailsOf(varName, BYTINDEX)
' Cells(1, intColumn + BYTINDEX) = arrHeaders(BYTINDEX)
' Next
' Rows(1).Font.Bold = True
lngRow = 2
For Each varName In ObjFolder.Items
For BYTINDEX = 0 To 37
Cells(lngRow, intColumn + BYTINDEX) = ObjFolder.GetDetailsOf(varName, BYTINDEX)
Next
lngRow = lngRow + 1
Next
Columns.AutoFit
Set ObjShell = Nothing
Set ObjFolder = Nothing
Application.ScreenUpdating = True
End Sub
Er ist weitaus einfacher als der den ich nutze und listet direkt alles auf, das will ich zwar nicht, aber ich hatte mir erhofft er würde mir die Dateieigenschaftsnamen wie "DATECREATED" oder "SIZE" liefern, statt dessen gibt er GRÖSSE UND LETZTER ZUGRIFF.
Das verstehe ich nicht! Builtinproperties hat mich jetzt auch nicht weitergebracht!
Wie gesagt mein Code funktioniert und ich würde gerne dort aufsetzen, den anderen Code aber auch gerne verstehen.
Wäre nett wenn mir jemand helfen könnte!
Vielen Dank und V.G. aus dem verregneten Köln.
Gruß
Lothar