VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info?

[fher182]

Quiero crear un icono que me pueda decir cuantos archivos hay en "c:\" por ejemplo, hay alguna forma sencilla de automatizar la obtencion de esa informacion con solo un click?

[Ironhorse]

No conozco VBscript, pero en VB estan las clases FSO (File System Object), podes hacer lo siguiente:

Código [Seleccionar] Expandir


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

[Novlucker]

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