Ich hab mir ein kleines Programm geschrieben das mir Ordner und Unterverzeichnisse in einer Excel Tabelle auflistet. Jedoch braucht dieses Programm über 20 Minuten um dies zu tuen. Ich habe erfahren das es mit einer Shell Aplication deutlich schneller gehen soll. Nur sagt mir das rein garnichts.
Bisher mache ich es so :
Option Explicit
Dim fso
Dim lRow As Long
Dim icol As Integer
Sub OrdnerAuflisten()
Set fso = CreateObject("Scripting.FileSystemObject")
icol = 0
lRow = 0 'Ab welcher Zeile soll geschrieben werden
GetSubFolders "Y:\Abl\Projekte" 'Dateipfad für die Suche
End Sub
Function GetSubFolders(pfad)
Dim FO, FU, F
Set FO = fso.GetFolder(pfad)
Set FU = FO.SubFolders
On Error Resume Next
For Each F In FU
lRow = lRow + 1 'Eine Zeile weiter
icol = icol + 1 'Eine Spalte weiter
Sheets(welcheTabelle).Cells(lRow, icol) = F.Name
GetSubFolders F.Path
Next
icol = icol -1
End Function
Wie würde das ganze denn deutlich schneller gehen ?
Suche schon ne ganze Zeit finde aber leider nichts gescheites dazu.
Mit freundlichen Grüßen
SFymaS