Office: (Office 2019) ListFilenames_FSO_Star

Hallo Forum,

in diesem Forum gibt es bereits ein Makro mit dem Namen "Sub ListFilenames_FSO_Star".
Da meine VBA Kenntnisse nicht so gut sind, möchte ich irgendein Forums Mitglied dankend bitten, mir bei der Erweiterungen der Dateieigenschaften behilflich zu sein.

Vielen Dank im voraus

Viele Grüße
Elfriede

 

Hallo Elfriede,

wo findet man das?

 

Hallo Klaus-Dieter,

hier im Forum, ein "xlph" ist der Verfasser, Wenn das was nützt? Oder solch ich das Makro mal hochladen?

Nachtrag: Ich sehe gerade, dass das Makro hier in diesem Forum unvollständig ist:

Stelle mal den vollständigen Code rein:

Public Sub ListFilenames_FSO_Start()

'On Error GoTo errorHandling

Dim objFSO As Object
Dim objFolder As Object
Dim colLog As Collection

Dim t As Single: t = Timer

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder("D:\") 'Startordner | Anpassen *****

If Not objFolder Is Nothing Then
Set colLog = New Collection
Call ListFilenames(objFolder, colLog)
Call outputLog(colLog)
End If

Debug.Print "FSO", Timer - t

errClearUp:
Set objFolder = Nothing
Set objFSO = Nothing
Set colLog = Nothing
Exit Sub

errorHandling:
If Err Then MsgBox "Fehler: " & Err.Number & vbLf & Err.Description
Resume errClearUp

End Sub

Private Function ListFilenames(ByRef objFolder As Object, Optional colLog As Collection)

Dim objFile As Object, objSubfolder As Object, strFolderPath As String, strFileName As String

For Each objFile In objFolder.Files ' <<<<<<<< Fehler 70
strFolderPath = objFolder.Path
strFileName = objFile.Name

colLog.Add Item:=Array(strFolderPath, strFileName)
Next

For Each objSubfolder In objFolder.Subfolders
Call ListFilenames(objSubfolder, colLog)
Next

End Function

Private Sub outputLog(ByRef colData As Collection)
Dim lngIndexD As Long
Dim avarLogData() As Variant
Dim varRecord As Variant

ReDim avarLogData(1 To colData.Count + 1, 1 To 2)

avarLogData(1, 1) = "Path"
avarLogData(1, 2) = "Filename"

For lngIndexD = 1 To colData.Count
varRecord = colData(lngIndexD)
avarLogData(lngIndexD + 1, 1) = varRecord(0)
avarLogData(lngIndexD + 1, 2) = varRecord(1)
Next

With Workbooks.Add(xlWBATWorksheet).Worksheets(1)
.Name = "Folders & Files"
With .Range("A1")
.Resize(UBound(avarLogData), UBound(avarLogData, 2)).Value = avarLogData
.Resize(, UBound(avarLogData, 2)).EntireColumn.AutoFit
.Sort .Cells(1), xlAscending, Header:=True
End With
End With

Erase avarLogData
End Sub

Viele Grüße
Elfriede

 

Hallo Klaus-Dieter,

habe eine E-Mail von Dir bekommen! Kann aber keine Antwort oder Fragen dazu im Forum finden.

Viele Grüße
Elfriede

 

Hallo Elfriede,

habe kein Mail verschickt.

 

Hallo Klaus-Dieter,

war ein Missverständnis bzw. Versehen!!! Die erste E-Mail war von der Registrierung und die zweite war dann von Dir. Was ja Deine Frage war, wo man dieses Makro finden kann.

Dieser Teil vom Makro hätte ich gerne erweitert bzw. ergänzt um diese Eigenschaften:

Name; Ordnername; Pfad; Dateierweiterung ;Größe; Länge; Änderungsdatum
Erstelldatum; Letzter Zugriff; Bildbreite; Bildhöhe.
(Pfad und Name sind ja bereits vorhanden).

avarLogData(1, 1) = "Path"
avarLogData(1, 2) = "Filename"

For lngIndexD = 1 To colData.Count
varRecord = colData(lngIndexD)
avarLogData(lngIndexD + 1, 1) = varRecord(0)
avarLogData(lngIndexD + 1, 2) = varRecord(1)

Viele Grüße
Elfriede

 

Hallo Elfriede,

das war kein Mail von mir, sondern eine Benachrichtigung des Forums über meine Antwort.

 

Hallo Klaus-Dieter,

ist Dein "Latein" am Ende? Habe mich schon über ein Ergebnis gefreut weil Du als Erster gleich nach dem Makro gefragt hattest. Aber leider bin ich da enttäuscht worden. Man kann ja nicht alles wissen, aber dann kann ich wenigstens erwarten, dass man zumindestens einem mitteilt, dass man mit der "Lösung" überfordert ist.

Viele Grüße
Elfriede

 

Spätestens jetzt hätte ich Dein Bild vom „Fragesteller der Woche”-Brett genommen

 

Kommt ja noch viel schlimmer:
Crossposting kann die Dame auch noch (ohne zu verlinken)
Elfriede ist nicht nur rotzfrech, sondern findet es super, mehrere Foren gleichzeitig zu beschäftigen.
Dateieigenschaften

 

Liebes Forum,

tut mir leid, wenn ich da etwas zu forsch war. Aber es ist halt so passiert und ich entschuldige mich dafür. Aber ich wollte doch endlich eine Antwort auf meine Probleme mit den Dateieigenschaften gelöst bekommen und mehr nicht. Dass man das mitteilen muss, dass man in einem anderen Forum schon diese Frage gestellt hat war mir nicht bekannt. Außerdem war dort der Thread ja schon beendet. Soviel da zu. Trotzdem wäre es schön, wenn mir jemand von Euch in dieser Sache behilflich sein könnte.

Viele Grüße
Elfriede

 

Hallo Elfriede,

Code:

Hallo Klaus-Dieter,

ist Dein "Latein" am Ende? 

inzwischen hast du dich ja entschuldigt, normalerweise landet man für so etwas auf der Ignorier-Liste. Es ist einfach so, dass ein Forum keine Service-Seite von Microsoft ist, die Antworter also in ihrer Freizeit unentgeltlich bei der Lösung von Problemen helfen. Da ich im Moment auch noch ein paar andere Sachen um die Ohren habe, bin ich hier nicht so oft präsent.