Dateien auflisten
20.04.2005 17:41:40
tino
mit unten stehenden Code Liste ich
Dateien aus einem Ordner auf und diese werden
mit Hyperlinks versehen.
Versuche nun aber bekomme es nicht hin.
1. anstatt des ganzen Pfads möchte
ich nur den Namen der Datei als Text?
2. Ist es möglich dies anstatt
in Zellen aufzulisten, dies in einer ListBox
zu machen?
Wer kann mir Helfen um dies zu realisieren?
Danke für Eure Hilfe
MfG
Tino
Sub Dateiliste()
Range("A1").Select
Dim i As Long
Const verz = "D:\VBA\"
ChDir verz
Range("A1").Select
With Application.FileSearch
.NewSearch
.LookIn = verz
.SearchSubFolders = True
.Filename = "*.*" 'Datei Typ
.Execute
For i = 1 To .FoundFiles.Count
ActiveCell.Value = .FoundFiles(i)
ActiveCell.Hyperlinks.Add ActiveCell, ActiveCell.Value
ActiveCell.Offset(1, 0).Select
Next i
End With
End Sub