vba word: Filer i c:\ visning i listbox

kan du bruge det her til noget?
http://www.eksperten.dk/spm/252001

duks -> Jeg tror ikke dit svar kan bruges - løsningen bruger FileListBox, og den findes IKKE i VBA (eller - jeg kan ikke finde den). Hvis man havde den, var det jo bare at skrive:
  FileListBox1.Path = "C:\MinMappe"
  FileListBox1.Refresh

Jeg kikkede selv på spørgsmålet, men opgav, da FileListBox-kontrollen ikke findes i VBA , og da man ikke kan benytte FileSystemObject kendt fra VB - det ville jo ellers være ligetil med FSO :o(

Jeg har selv klaret udfordringen med følgende kode:

Sub vis()
Set fso = CreateObject ("Scripting.FileSystemObject")
Set folderObject = fso.GetFolder("C:\")
Set filesObject = folderObject.Files

For Each file In filesObject
    If InStr(file.Name, ".doc") Then
        ListBox1.AddItem file.Name
    End If
Next

Set fileObject = Nothing
Set folderObject = Nothing
Set fso = Nothing
End Sub

Private Sub CommandButton1_Click()
Call vis
End Sub

Ups - og her skrev jeg, at man ikke kan benytte FileScriptingObject i VBA - men der havde jeg ikke ret :o(

Sikke jeg vrøvler - jeg mener FileSystemObject - ikke mere varm mælk til mig!

PS - du skal lige ligge et svar du acceptere for at lukke spørgsmålet :o))

Ohh ja. Tak :-)