Thema: Dateien sortiert einlesen

Home

Die Dateien des aktuellen Verzeichnisses werden sortiert in die ListBox eingelesen.

Prozedur: UserForm_Initialize
Art: Ereignis
Modul: Klassenmodul der UserForm
Zweck: Dateien sortiert einlesen
Ablaufbeschreibung:
- Variablendeklaration
- Rahmen um das FileSearch-Objekt bilden
- Das aktuelle Verzeichnis als das zu durchsuchendes Verzeichnis festlegen
- Untergeordnete Ordner nicht durchsuchen
- Dateisuche mit dem Parameter zur sortierten Auflistung starten
- Schleife über alle gefundenen Dateien bilden
- Aktuellen Dateinamen in ListBox einlesen

Code:


Private Sub UserForm_Initialize()
   Dim iCounter As Integer
   With Application.FileSearch
      .LookIn = CurDir
      .SearchSubFolders = False
      .Execute msoSortByFileName
      For iCounter = 1 To .FoundFiles.Count
         lstFiles.AddItem .FoundFiles(iCounter)
      Next iCounter
   End With
End Sub