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".

Puedes conocer toda información que desees acerca de las particiones que tiene tu PC.

cCadWMI = "Select * from CIM_DiskPartition"


oParti = objWMI.ExecQuery(cCadWMI)


For Each oDisco in oParti

    ? oDisco.Name + " - Tamaño: " +Transform(oDisco.Size) + ;

            " En: " + oDisco.SystemName + " - Tipo: " + oDisco.Type
Next
 

Puedes buscar los archivos con una determinada extensión ....

objWMI = GetObject("winmgmts:\")

cCadWMI = "Select * from CIM_DataFile where extension = 'exe'"


oArchivos = objWMI.ExecQuery(cCadWMI)


For Each oFile in oArchivos
    ? oFile.Name

Next
 

Deseas conocer los archivos que tienes en tu PC de un tamaño especifico??? ... Todo es posible con WMI.

objWMI = GetObject("winmgmts:\")


cCadWMI = "Select * from CIM_DataFile where FileSize > 10000000"
oArchivos = objWMI.ExecQuery(cCadWMI)


For Each oFile in oArchivos
    ? oFile.Name + " -- " + loFile.FileSize
Next

Otra de las innumerables formas de renombrar archivos .... esta vez a través de WMI.

objWMI = GetObject("winmgmts:\")


cCadWMI = "Select * from Cim_Datafile where Name = " + ;
                               
"'c:\MiDir\Archivo.Ext'"
oArchivo = objWMI.ExecQuery(cCadWMI)

For Each oFile in oArchivo

    oFile.Rename("c:\MiDirNuevoNombre.Ext")
Next

Otra de las innumerables formas de copiar directorios .... esta vez a través de WMI.

objWMI = GetObject("winmgmts:")


cCadWMI = "Select * from Win32_Directory where Name = 'c:\MiDir'"
oDir = objWMI.ExecQuery(cCadWMI)


For Each oFolder in oDir
    =oFolder.Copy("c:\OtroDir")
Next

Otra de las innumerables formas de eliminar directorios .... esta vez a través de WMI.

objWMI = GetObject("winmgmts:")


cCadWMI = "Select * from Win32_Directory where Name = 'c:\\MiDir'"
oDir = objWMI.ExecQuery(cCadWMI)


For Each oFolder in oDir
    =oFolder.Delete

Next

Increíble todo lo que se puede hacer con WMI ... en este caso mostrare todos los directorios ocultos de Windows.

objWMI = GetObject("winmgmts:")


cCadWMI  = "Select * from Win32_Directory Where Hidden = .T."
oArchivos = objWMI.ExecQuery(cCadWMI)


For Each oFiles  in oArchivos

    ?oFiles.Name
Next

Me ha gustado este truquito .... es la forma de deshabilitar o habilitar los Themes (temas de escritorio) en WinXP.

objWMI = GetObject("winmgmts:\")


cCadWMI = "Select * from Win32_Service Where Name = 'Themes'"
oServ = objWMI.ExecQuery(cCadWMI)


For Each objService in oServ

    objService.StopService()

Next

Para habilitarlas nuevamente reemplace ObjService.StopService por la siguiente línea


 objService.StartService()

Otra forma de formatear una partición o disco duro.

En este caso se formateara la partición o disco d: y el formato será NTFS pero puedes ser también "FAT32" o "FAT". El segundo parámetro determina si el formato es rápido (Quick Format)

Tenga cuidado cuando pruebe este ejemplo.

objWMI = GetObject("winmgmts:\")


cCadWMI = ("Select * from Win32_Volume Where Name = 'D:\'"

oDisco = objWMI.ExecQuery(cCadWMI)


For Each oUnidad in oDisco

    oUnidad.Format("NTFS", .T.)

Next