Loop throung Dir

Jeg sidder med følgende kode og er gået lidt i stå.

Min syntax er forkert men hvad skal jeg rette?

Private Sub btnCreateDocument_Click()
Set fs = CreateObject("Scripting.FileSystemObject")
Docs = fs.GetFolder("c:\")
d = fs.GetFiles(Docs)

For Each d In Docs
    MsgBox d
Next

End Sub