Office: Ordnerinhalt in einem Listenfeld anzeigen

Hi,

ich versuche die ganze Zeit den Inhalt eines bestimmten Ordners in einem Listenfeld anzeigen zu lassen. Bin auf folgende Methode gestoßen, aber bekomme es irgendwie nicht hin - ich glaube es scheitert beim Aufruf:
Microsoft Access tips: DirListBox() function
Die Methode ist zwar für Access aber das sollte doch keine Rolle spielen, denke ich..*rolleyes.gif*

Hab den Code in ein Modul reinkopiert und meinen Pfad angepasst:
Code:

Folgendermaßen versuche ich diese Funktion aufzurufen:
Code:

ich bekomme dabei eine Fehlermeldung:
'Laufzeitfehler 13' Typen unverträglich.

ich bin am verzweifeln *frown.gif*

gruß

:)

 

Hallo

versuch es mal so:
' **********************************************************************
' Modul: UserForm1 Typ: Userform
' **********************************************************************

Option Explicit

Private Sub CommandButton1_Click()
Const Verz = "D:\Festplatte 2"
Dim Datei
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
Me.ListBox1.Clear
For Each Datei In FSO.getfolder(Verz).Files
Me.ListBox1.AddItem Datei 'Dir(Datei)
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
Me.ListBox1.AddItem Ordner
Next
End Sub


ransi

 

super klappt schonmal wunderbar.

wäre es noch möglich nur die Dateinamen anzeigen zu lassen ohne den kompletten Pfad?

 

HAllo

Geht auch:
Option Explicit

Private Sub CommandButton1_Click()
Const Verz = "D:\Festplatte 2"
Dim Datei
Dim Ordner
Dim FSO As Object
Set FSO = CreateObject("Scripting.filesystemobject")
Me.ListBox1.Clear
For Each Datei In FSO.getfolder(Verz).Files
Me.ListBox1.AddItem Datei.Name
Next
For Each Ordner In FSO.getfolder(Verz).subfolders
Me.ListBox1.AddItem Ordner.Name
Next
End Sub


ransi

 

super, vielen vielen dank!