wende mich mal wieder mit einem Problem an euch.
Ich habe eine Userform mit einer Textbox, Listbox und einem Commandbutton. Mittels Klick auf dem Commandbutton durchsuche ich ein festes vorgegebenes Verzeichnis und die Ergebnisse werden in
der Listbox aufgelistet. Die richtige Datei kann ich dann mittels Klick auf den entsprechenden Eintrag
öffnen. Mein Code (weiter unten) funktioniert einwandfrei.
Mein Problem ist folgendes:
Ich möchte nicht das der komplette Pfad angezeigt wird sondern nur der Dateiname.
Hier mein Code der mittels dem Commandbutton ausgeführt wird:
Sub test1()
Dim fs As Object, i As Long
Set fs = Application.FileSearch
With fs
.LookIn = "Z:\Server\"
.Filename = "*" & UserForm1.TextBox1.Value & "*.xls"
.SearchSubFolders = True
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
'Array auf richtige Größe einstellen
ReDim Dat_Arr(.FoundFiles.Count)
'Array füllen
For i = 1 To .FoundFiles.Count
Dat_Arr(i) = .FoundFiles(i)
Next i
Else
MsgBox "There were no files found."
End If
End With
'vorhandene Einträge löschen
UserForm1.ListBox1.Clear
'Array in Listbox füllen
UserForm1.ListBox1.List = Dat_Arr
'Formular anzeigen
'UserForm1.Show
End Sub
Hoffenlich kann mir jemand helfen.
Gruß
Patrick