Dateien aus Ordner in Liste
06.09.2021 12:26:45
Fritz_W
ich habe im Netz den nachstehend aufgeführten Code gefunden, mit dem sich alle Dateinamen eines Ordners verlinkt in Spalte B auflisten lassen.
Ich würde nun gerne in den Spalten C und D zu den jeweiligen Dateinamen das letzte Speicherdatum und die Dateigröße aufgelistet bekommen.
Für eure Unterstützung vielen Dank im voraus.
mfg
Fritz
hier der aktuelle Code:
Sub Example()
'Updateby Extendoffice
Dim xFSO As Object
Dim xFolder As Object
Dim xFile As Object
Dim xFiDialog As FileDialog
Dim xPath As String
Dim i As Integer
Set xFiDialog = Application.FileDialog(msoFileDialogFolderPicker)
If xFiDialog.Show = -1 Then
xPath = xFiDialog.SelectedItems(1)
End If
Set xFiDialog = Nothing
If xPath = "" Then Exit Sub
Set xFSO = CreateObject("Scripting.FileSystemObject")
Set xFolder = xFSO.GetFolder(xPath)
For Each xFile In xFolder.Files
i = i + 1
ActiveSheet.Hyperlinks.Add Cells(i, 2), xFile.Path, , , xFile.Name
Next
End Sub