Dateien auflisten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
UserForm ListBox
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

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