Gruppe
Dialog
Problem
Wie kann ich durch Betätigung einer Schaltfläche in einer UserForm die XL-Dateinamen des aktuellen Verzeichnisses in einem sich ebenfalls in der UserForm befindlichen Listenfeld listen?
StandardModule: basMain
Sub Start()
frmFileList.Show
End Sub
ClassModule: frmFileList
Private Sub cmdList_Click()
Dim intCounter As Integer
With Application.FileSearch
.LookIn = CurDir
.FileName = "*.xls"
.Execute
For intCounter = 1 To .FoundFiles.Count
lstFiles.AddItem .FoundFiles(intCounter)
Next
End With
End Sub
Private Sub cmdOK_Click()
Unload Me
End Sub