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

 

Podemos cambiar el nombre del disco con API pero también podemos hacerlo utilizando WMI.

objWMI = GetObject("winmgmts:\")


cCadWMI = "Select * from Win32_LogicalDisk where DeviceID = 'C:'"

oRoot = objWMI.ExecQuery(cCadWMI)


For Each oDisco in oRoot

    oDisco.VolumeName = "MiDisco"

    oDisco.Put_
Next

 

Con WMI podemos manipular las cuentas de los usuarios de Windows, en este caso vamos a mostrar cuales son.

objWMI = GetObject("winmgmts:\")


cCadWMI = "Select * from Win32_Account"


oUsers = objWMI.ExecQuery(cCadWMI)


For Each oU in oUsers
    ? Transform(oU.Name) + " - " + Transform(oU.Caption)
Next

Con WinXP y creo que 2000 se puede comprimir el contenido de la carpeta para que ocupe menos espacio en disco cuando la partición es NTFS... no hablo de compresión ZIP.

En este caso voy a comprimir la carpeta MIDir ... para hacer la prueba escoja un directorio y mire el tamaño que tiene y luego ejecute el código y vuelva a mirar el tamaño..... se dará cuenta que fue comprimido bastante.

objWMI = GetObject("winmgmts:\")


cCadWMI = "Select * from Win32_Directory where Name = 'c:\MiDir'"

oDir = objWMI.ExecQuery(cCadWMI)


For Each oCarpeta in oDir
    oCarpeta.Compress
Next
 

Muy útil función API que nos permite convertir un número en su respectivo valor en Bytes - KB - MB - GB .... de forma muy sencilla.

Declare STRING StrFormatByteSize
IN
Shlwapi;

   
INTEGER
dw,
STRING
@ pszBuf,
INTEGER
cchBuf

 

    = _show (532)

    = _show (1340)

    = _show (23506)

    = _show (2400016)

    = _show (2400000000)

    = _show (4294967295)

 

Function _show (dw)

    pszBuf =
SPACE(50)

    ? dw, " -> "

    ?? StrFormatByteSize (m.dw, @pszBuf,
Len(pszBuf))

Endfunc