Bei FileSearch den Pfad nicht mitanzeigen
25.02.2005 16:20:26
louis
ich bräuchte noch mal eure hilfe
mit folgendem code lasse ich eine listbox mit dateien eines ordners füllen was auch prima klappt. ich möchte aber nicht die ganze pfadangabe haben sondern nur den dateinamen.
also jetzt zeigt er mir an
E:\Protokoll\22.02.05.xls
ich möchte das mir aber nur
22.02.05.xls
anzeigt oder gar nur
22.02.05
ist das irgendwie möglich?
Für hilfe wäre ich dankbar.
Private Sub list_Click()
Dim iCounter As Integer
lstFiles.Clear
With Application.FileSearch
.LookIn = "E:\Protokoll"
.FileType = msoFileTypeExcelWorkbooks
.Execute
For iCounter = 1 To .FoundFiles.Count
lstFiles.AddItem .FoundFiles(iCounter)
Next iCounter
End With
End Sub
danke im vorraus
mfg
louis