Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => 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:


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