AW: Excel Mac Ordnerstruktur erstellen im Finder aus Excel
22.01.2020 19:06:04
Piet
Hallo
es gibt im Internet zahlreiche Varianten wie man U-Ordner auflisten kann. Hier zwei Beispiele. Das 1. Makro erzeigt eine Baumstruktur, das zweite listet die Ordner untereinander. Gibt man im zweiten Makro True/False an werden weitere Unterordner aufgelistet, oder nur die 1. U-Ornder angezeigt.
mfg Piet
Option Explicit
Dim FSO, FO, FU, F
Dim lRow As Long
Dim iCol As Integer
'1. Makro listet alle U-Ordner als Baumstruktur auf
Sub OrdnerAuflisten()
iCol = 0
lRow = 0
Cells.Clear 'Tabelle löschen
GetSubFolders "F:\" '"C:\Windows"
End Sub
Function GetSubFolders(pfad)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
iCol = iCol + 1
Cells(lRow, iCol) = F.Path 'oder F.Name
GetSubFolders F.Path
Next
iCol = iCol - 1
End Function
'2. Makro listet alle U-Pfade untereinander auf
Sub OrdnerAuflisten_2()
iCol = 2
lRow = 0
Cells.Clear 'Tabelle löschen
GetSubFolders_2 "F:\", False '"C:\Windows"
End Sub
Function GetSubFolders_2(pfad, UO)
Set FSO = CreateObject("Scripting.FileSystemObject")
Set FO = FSO.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1
Cells(lRow, iCol) = F.Path
If UO = True Then GetSubFolders_2 F.Path, UO
Next
End Function