title image


Smiley Re: Dateiname ohne Pfad auslesen
Hallo Thomas,



Sub dateisuche()

Dim fs As Object

Dim i As Integer

Dim suchdatei As String

' hier wird die zu suchende Datei eingegeben z.B. Tips.xls

suchdatei = InputBox("Gesuchte Datei: ", "Dateisuche", "Tips.xls")

Set fs = Application.FileSearch

With fs

.LookIn = "D:\Excel-Tips"

'hier wird nach diesem Dateinamen gesucht

.Filename = suchdatei

If .Execute > 0 Then

For i = 1 To .FoundFiles.Count

'Hier wird der gesamte Pfad und der Dateiname ausgegeben

MsgBox .FoundFiles(i)

Next i

Else

MsgBox ("Nichts gefunden")

End If

End With

End Sub





Die Anzeige der gefundenen Datei (oder Dateien) erfolgt mit dem Pfad, wenns nur der Dateiname sein soll, dann musst Du den Pfad aus dem Ergebnis halt noch entfernen.



Viele Grüße

Herby





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: