Dateien auflisten ohne Pfad
31.03.2005 11:34:29
tino
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