VBA um in Ordnern best. Dateieigenschaften anzeig
04.02.2018 15:24:01
Anton
Hallo Urs,
probier es hiermit:
Dim i As Long
Sub dateien_auflisten()
Dim objShell As Object, objFolder As Object
Dim BrowseDir, varName, k As Integer
Set objShell = CreateObject("Shell.Application")
Set BrowseDir = objShell.BrowseForFolder(0, "Ordner auswählen", &H1000, 17)
If Not BrowseDir Is Nothing Then
Application.ScreenUpdating = False
i = Tabelle1.UsedRange.Rows.Count
Set objFolder = objShell.Namespace(BrowseDir.self.Path)
If i "Dateiordner" Then
i = i + 1
Cells(i, 1) = varName.Path
Cells(i, 2) = objFolder.GetDetailsOf(varName, Cells(1, 2))
Cells(i, 3) = objFolder.GetDetailsOf(varName, Cells(1, 3))
Cells(i, 4) = objFolder.GetDetailsOf(varName, Cells(1, 4))
Cells(i, 5) = objFolder.GetDetailsOf(varName, Cells(1, 5))
Cells(i, 6) = objFolder.GetDetailsOf(varName, Cells(1, 6))
Cells(i, 7) = objFolder.GetDetailsOf(varName, Cells(1, 7))
End If
Next
Set objFolder = Nothing
Set objShell = Nothing
End Function
mfg Anton