No conozco VBscript, pero en VB estan las clases FSO (File System Object), podes hacer lo siguiente:
Dim oFS As New FileSystemObject
Dim oFolder As Folder
Set oFolder = oFS.GetFolder("c:\")
MsgBox oFolder.Files.Count
PD: Para que funcione necesitas una referencia a Microsoft Scripting Runtime