Frage:
Wie lese ich alle Dateien, die sich im Pfad C:\winnt\Temp befinden in eine Combobox ein?
Danke für Eure Hilfe!
Gruß
ralle
Private Sub UserForm_Initialize()
Dim Fs, i As Integer
Set Fs = Application.FileSearch
With Fs
.LookIn = "C:\winnt\Temp"
If .Execute > 0 Then
For i = 1 To .FoundFiles.Count
ComboBox1.AddItem .FoundFiles(i)
Next i
Else
MsgBox "Nix vorhanden...", , "Fehlanzeige"
End If
End With
End Sub