Gruppe
Dialog
Problem
Wie kann ich die Dateien des aktuellen Verzeichnisses in einer ListBox einer UserForm auflisten und sortieren lassen?
ClassModule: frmFiles
Private Sub cmdContinue_Click()
Unload Me
End Sub
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
StandardModule: basMain
Sub CallForm()
frmFiles.Show
End Sub