'Alle Dateien auflisten die im ordner vorhanden sind
Private Function ShowFileList(ByVal FullPath As String)
Dim fso As New FileSystemObject
Dim AnzDateien, Files As File
Dim fFolder As Folder
 
On Error Resume Next
Set fFolder = fso.GetFolder(FullPath)
Set AnzDateien = fFolder.Files   'Anzahl Dateien
 
'Dateien Auflisten
For Each Files In AnzDateien
  List1.AddItem Files.Name
Next
Set fso = Nothing
End Function

Private Sub Form_Load()
ShowFileList "C:\"
End Sub