Microsoft Excel

Excel und VBA: Formeln, Programmierung, Lösungen

Die Excel/VBA-Beispiele

Thema

Dateinamen in Listbox

Gruppe

ListBox

Problem

Wie kann ich die Dateien des aktuellen Verzeichnisses in einer ListBox einer UserForm auflisten und sortieren lassen?

Lösung
Geben Sie den nachfolgenden Code in das Klassenmodul der UserForm ein.

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