Nur Dateinamen, ohne Pfad
29.09.2003 13:42:34
Franz W.
ich habe von Hans' CD einen Code, der in ein Listenfeld die Dateien eines Verzeichnisses auflistet, allerdings mit kompletten Pfad:
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
Wie bitte muss dieser Code lauten, damit er NUR DIE DATEINAMEN ins Listenfeld schreibt?
Vielen Dank im Voraus und Grüße
Franz