Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
852to856
852to856
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
dateiname ohne pfad in listbox
10.03.2007 21:40:00
Patrick
Hallo,
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

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: dateiname ohne pfad in listbox
ransi
HAllo Patrick
ungetestet:
Dat_Arr(i) = dir(.FoundFiles(i))
ransi
AW: dateiname ohne pfad in listbox
10.03.2007 21:53:00
EtoPHG
Hallo Patrick,
Ersetze diese Zeile

Dat_Arr(i) = .FoundFiles(i)
mit dieser

Dat_Arr(i) = Mid(.FoundFiles(i), InStrRev(f, "\") + 1)

Gruss Hansueli
Ooops kleiner Schreibfehler
10.03.2007 21:56:00
EtoPHG
Sorry,
Soll heissen:

Dat_Arr(i) = Mid(.FoundFiles(i), InStrRev(.FoundFiles(i), "\") + 1)

Nice weekend....
(Eine Korrekturfunktion auf diesem Forum wäre nicht schlecht...)
Anzeige

292 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige