elhacker.net cabecera Bienvenido(a), Visitante. Por favor Ingresar o Registrarse
¿Perdiste tu email de activación?.


Tema destacado: (TUTORIAL) Aprende a emular Sentinel Dongle By Yapis


+  Foro de elhacker.net
|-+  Programación
| |-+  Programación General
| | |-+  .NET (C#, VB.NET, ASP)
| | | |-+  Programación Visual Basic (Moderadores: LeandroA, seba123neo)
| | | | |-+  VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info?
0 Usuarios y 1 Visitante están viendo este tema.
Páginas: [1] Ir Abajo Respuesta Imprimir
Autor Tema: VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info?  (Leído 3,284 veces)
fher182

Desconectado Desconectado

Mensajes: 1


Ver Perfil
VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info?
« 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?


En línea

Ironhorse

Desconectado Desconectado

Mensajes: 150



Ver Perfil
Re: VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info
« Respuesta #1 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



En línea

Pégense una vuelta por Cracton :)
Novlucker
Ninja y
Colaborador
***
Desconectado Desconectado

Mensajes: 10.683

Yo que tu lo pienso dos veces


Ver Perfil
Re: VBScript Cuantos Archivos hay en"C:\"? que funcion me puede automatizar info?
« Respuesta #2 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
En línea

Contribuye con la limpieza del foro, reporta los "casos perdidos" a un MOD XD
"Hay dos cosas infinitas: el Universo y la estupidez  humana. Y de la primera no estoy muy seguro."
Albert Einstein
Páginas: [1] Ir Arriba Respuesta Imprimir 

Ir a:  

WAP2 - Aviso Legal - Powered by SMF 1.1.21 | SMF © 2006-2008, Simple Machines