Dateien auflisten ohne Pfad

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
MsgBox
Bild

Betrifft: Dateien auflisten ohne Pfad von: tino
Geschrieben am: 31.03.2005 11:34:29

Hallo,
mit dem unten stehenden Code liste ich
alle Dateien in einem Ordner auf und
füge diesen den Hyperlink zur Datei zu.
aber ich bekomme die Auflistung mit
dem kompletten Pfad aufgelistet, möchte
aber nur den Namen der Datei in der Liste sehen.
Ist dies möglich?



Sub DateienAuflisten()
Dim i As Long
Const verz = "D:\VBA\"
On Error GoTo fehler
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = False
.FileType = msoFileTypeAllFiles
.Execute
For i = 1 To .FoundFiles.Count
'ActiveCell.Value = .FoundFiles(i)
ActiveCell.Hyperlinks.Add ActiveCell, .FoundFiles(i)
ActiveCell.Offset(1, 0).Select
Next i
End With
Exit Sub
fehler:
MsgBox "Es gibt kein Verzeichnis mit dem Namen " & verz
End Sub


Ich bedanke mich für Eure Hilfe

Euer Tino
Bild


Betrifft: AW: Dateien auflisten ohne Pfad von: u_
Geschrieben am: 31.03.2005 11:47:10

Hallo,

DateiName = Right(.foundfiles(i), Len(.foundfiles(i)) - InStrRev(.foundfiles(i), "\"))

Gruß


Bild


Betrifft: AW: Dateien auflisten ohne Pfad von: Heiko S.
Geschrieben am: 31.03.2005 11:50:08

Hallo Tino,

ändere die Zeile mit ActiveCell.Value so ab.

ActiveCell.Value = Right(.FoundFiles(i), Len(.FoundFiles(i)) - InStrRev(.FoundFiles(i), "\"))


Gruß Heiko

PS: Rückmeldung wäre nett !


Bild


Betrifft: AW: Dateien auflisten ohne Pfad von: tino
Geschrieben am: 31.03.2005 12:02:48

Hallo Heiko,
Danke für Deine Hilfe es funktioniert


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Dateien auflisten ohne Pfad"