Puedes consultar los archivos de un determinado directorio y que cumplan cierta condición.
Quiero consultar los archivos que están en el directorio "MiDir"
objWMI = GetObject("winmgmts:")
cCadWMI = ("Select * from CIM_DataFile where Path = '\\MiDir\\'")
oArchi = objWMI.ExecQuery(cCadWMI)
For Each oFile in oArchi
?oFile.Name + " - Tamaño: " + Transform(oFile.FileSize)
Next
En este caso quiero consultar todos los directorios que empiecen con b
objWMI = GetObject("winmgmts:")
cCadWMI = ("Select * from CIM_DataFile where Path = '\\MiDir\\' And FileName Like 'b%'")
oDisco = objWMI.ExecQuery(cCadWMI)
For Each oUnidad in oDisco
?oUnidad.Name
Next
O conocer los archivos de una determina extensión ... por ejemplo "ZIP".
objWMI = GetObject("winmgmts:")
cCadWMI = ("Select * from CIM_DataFile where Path = '\\MiDir\\' And Extension = 'ZIP'")
oDisco = objWMI.ExecQuery(cCadWMI)
For Each oUnidad in oDisco
?oUnidad.Name
Next
Si tienes inquietudes, sígueme en Twitter para contactarme.
Seguir a @davamadort¿Deseas que tu sitio web aparezca en buscadores como google, yahoo, msn?
Contrata un plan de hosting en www.winnethost.com y recibes totalmente gratis el registro de tu sitio web en más de 24 buscadores, entre ellos google, yahoo, msn
El Sitio La Web de Davphantom se encuentra hospedado en WinNetHost.com
