EN BASE A LO QUE COMENTA Ironhorse , ESTO ES LO MISMO PERO PARA VBS, EL PROBLEMA ES QUE CUENTA LA CANTIDAD DE FILES DENTRO DE UNA CARPETA, NO LOS QUE ESTAN DENTRO DE SUBDIRECTORIOS

SET FSO = CREATEOBJECT("SCRIPTING.FILESYSTEMOBJECT")
SET FOLD = FSO.GETFOLDER("C:\")
MSGBOX FOLD.FILES.COUNT

ASI POR EJ, TE PODRIA DAR COMO RESPUESTA "10", PERO DENTRO TENDRIAS MAS CARPETAS Y DENTRO DE ELLAS MAS ARCHIVOS

SALU2

La verdad que el programa esta muy bueno, lastima que sea tan corto, pero no es tan dificil de entender como jugar, espero que termines pronto con la segunda version ........... es entretenido................