VBA-Programmierung in Microsoft Excel

Tutorial: Excel-Beispiele

Dateinamen in Listbox

Gruppe

Dialog

Bereich

ListBox

Thema

Dateinamen in 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

    


Beiträge aus dem Excel-Forum zu den Themen Dialog und ListBox