Private Sub Command1_Click()
    Dim fso As New FileSystemObject
    Dim fo As Folder
 
    Set fo = fso.GetFolder("c:")
    MsgBox CStr(fo.Files.Count)
End Sub

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1