Herbers Excel-Forum - das Archiv

Dateien auflisten

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

Betrifft: Dateien auflisten
von: tino

Geschrieben am: 20.04.2005 17:41:40
Hallo,
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

Bild

Betrifft: AW: Dateien auflisten
von: Rolf Beißner

Geschrieben am: 20.04.2005 18:45:14
Hallo Tino,
Userform mit Listbox anlegen
und im Initialize-Ereignis
diesen Code hinterlegen.
fG
Rolf
...
Listbox1.List=FileList("D:\VBA\")
...
'Dateien eines Verzeichnisses ermitteln
Function FileList(folderspec) As Variant
Dim fs, f, fc, fl As Object
Dim n As Integer, i As Integer
Dim x()
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set fc = f.Files
n = fc.Count
i = 0
For Each fl In fc
i = i + 1
ReDim Preserve x(i)
x(i) = fl.Name
Next
If i = 0 Then
ReDim x(1)
x(1) = ""
End If
FileList = x
End Function

Bild

Betrifft: AW: Dateien auflisten
von: tino
Geschrieben am: 20.04.2005 19:00:28
Hallo Rolf Beißner,
Funktioniert Danke. Nur noch eine Sache,
diese aufgelisteten Dateien, sollen nun als
Hyperlink auf diese Datei Funtionieren.
Ist dies möglich? (muss nicht ListBox sein)

Gruss
Tino
Bild

Betrifft: AW: Dateien auflisten
von: andre
Geschrieben am: 20.04.2005 19:28:11
Hallo Tino,
in der Listbox wird das nix, da wärst Du wieder bei Deinem Originalcode als Lösung.
Grüße, ANdre
Bild

Betrifft: Hilfe zu erstens
von: tino

Geschrieben am: 20.04.2005 20:04:22
Hallo,
helft mir nur noch bei meiner ersten Frage.
1. anstatt des ganzen Pfads möchte
ich nur den Namen der Datei als Anzeigetext?
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

Bild

Betrifft: AW: Hilfe zu erstens
von: ransi
Geschrieben am: 20.04.2005 20:10:38
hallo tino

dir(.FoundFiles(i))
gibt nur den dateinamen
ransi
 Bild
Excel-Beispiele zum Thema "Dateien auflisten"
Alle Dateien im Verzeichnis öffnen Dateien listen
400 leere Textdateien anlegen XL-Dateien in UserForm listen
XL5/7-Dateien nach XL8 konvertieren Dateien aus Listbox auslesen und öffnen
Excel-Dateien eines Ordners listen Alle Dateien ab einem bestimmten Datum listen
Alle Dateien eines Verzeichnisses drucken Textdateien verbinden