Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: fher182 en 16 Abril 2006, 01:40 am

Título: VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info?
Publicado por: fher182 en 16 Abril 2006, 01:40 am

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?

Título: Re: VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info
Publicado por: Ironhorse en 18 Abril 2006, 01:07 am

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

Código:

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

Título: Re: VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info?
Publicado por: Novlucker en 18 Abril 2006, 13:39 pm

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