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

Otra forma de convertir de entero a Hexadecimal esta vez utilizando el API.

Puedes obtener las variables de entorno de Windows utilizando a función GETENV pero también puedes hacerlo con el API.

En este caso queremos conocer el valor que tiene la variable de Windows "PATH" ... pero también podemos con "TEMP", "WINDIR", "COMPUTERNAME", "SYSTEMROOT" ... entre otros.

Declare Integer
GetEnvironmentVariable
In
kernel32 ;

  
String @lpName,
String
@lpBuffer,;

  
Integer nSize

cRut = Space(8192)

=GetEnvironmentVariable("path",
@cRut, Len(Space(8192)))
=Messagebox(cRut)

 

Function int2hex (num)

  Declare
Integer wnsprintf
In
Shlwapi;

    
STRING @lpOut,
Integer
cchLimitIn,;

    
STRING
pszFmt,
Integer

   

  Local lnresult, lcresult

  lcresult =
Space(20)

  lnresult = wnsprintf(@lcresult, 20,
"%x",
num)

  Return
Left(lcresult, lnresult)

Otra forma de convertir de cadena a entero esta vez utilizando el API.

DECLARE INTEGER StrToInt
IN
Shlwapi
STRING
lpSrc

? "CADENA A ENTERO"

? StrToInt("0")

? StrToInt("2.16")

? StrToInt("1285754.16")

? StrToInt("1AE2")

Función bastante útil cuando deseas comparar si dos cadenas son iguales sin importar mayúsculas o minúsculas.

Clear

DECLARE INTEGER ChrCmpIA IN Shlwapi ;

As ChrCmpI SHORT w1, SHORT w2

?
"-----------------------------------"

? " Comparando
cadenas"

?
"-----------------------------------"

? " 0 = IGUALES
- 1 = DIFERENTES"

? "-----------------------------------"

? ChrCmpI(Asc("c"),
Asc("C"))

? ChrCmpI(Asc("v"),
Asc("C"))

? ChrCmpI(Asc("F"),
Asc("F"))

? ChrCmpI(Asc("V"),
Asc("M"))

Esta es la cadena de conexión del Driver de EasySoft que debes utilizar para cuando desees trabajar con FireBird.

*SERVIDOR = Puede ser el nombre del PC o la IP del mismo.

Tenga en cuanta que la base de datos puede ser extensión GDB o FDB.

cCad = "Driver={Easysoft IB6 ODBC};" + ;
                    "Server=SERVIDOR;" + ;
                    "Database=SERVIDOR:C:RutaBaseDatos.gdb;"+;

                    "Uid=USUARIO;" + ;
                    "Pwd=CLAVE"
 

Código bastante útil .... podemos convertir un número determinado de segundos en días, horas, minutos...

nSeg = 276786

? Padl(Int( nSeg / 86400),3) + " Días ";

    + Padl(Int((nSeg % 86400)/3600),2,"0") + " Hrs ";

    + Padl(Int((nSeg % 3600)/60), 2, "0") + " Min ";

    + Padl(Int(nSeg %
60),2,"0") + "
Seg"

Excelente función que te permitirá renombrar una base de datos sin perder los vínculos de las tablas.

Por : Cetin Basoz

lcOldDBC = "NOMBREBASEDATOS"

lcNewDBC = "NUEVONOMBRE"

RenDbc(m.lcOldDBC, m.lcNewDBC)

Function RenDbc

    Lparameters OldName, NewName

    Open Data (OldName)

    lnTables=Adbobject(arrTables,"TABLE")

 

    For ix=1
To lnTables

         lcTable = arrTables[ix]+".DBF"

     ;    handle=Fopen(lcTable,12)

     =Fseek(handle,8,0)

        lnLowByte = Asc(Fread(handle,1))

       lnHighByte = Asc(Fread(handle,1))*256

        lnBackLinkstart = lnHighByte + lnLowByte - 263

    = Fseek (handle,lnBackLinkstart,0)

        Fwrite(handle,Forceext(NewName,"dbc" )+Replicate(Chr(0),263),263)

         =Fclose(handle)

    Endfor

    Close Data All

    Rename (Forceext(OldName,"dbc"))To (Forceext(NewName,"dbc"))

     Rename(Forceext(OldName,"dcx"))To (Forceext(NewName,"dcx"))

    Rename(Forceext(OldName,"dct"))To (Forceext(NewName,"dct"))

Endfunc

En este ejemplo utilizaremos el ActiveX de Windows Media Player para reproducir archivo de audio.

oPlayer =
CreateObject("WMPlayer.OCX")

oPlayer.URL = GetFile("mp3;wav;mid;snd;midi;au")

 

INKEY(3,
"H")

=MessageBox("Terminado")

Este es un ejemplo básico de como acceder a datos de Paradox desde VFP.

cCadCon = "CollatingSequence=ASCII;" ;

            +
"DBQ=C:DIRECTORIO;";

            +
"DefaultDir=C:DIRECTORIO ;";

            +
"Driver={Microsoft Paradox Driver *.db )};";

             +"DriverId=538;FIL=Paradox5.X;";

            +
"MaxBufferSize=2048;";

            +
"MaxScanRows=8;PageTimeout;";

            +
"ReadOnly=False;pwd=CLAVE"

nH = SqlStringConnect(cCadCon)

If nH <= 0

     =Messagebox("Error en la conexión")

    Return .F.

Endif

 

If
SQLExec(nH, "Select * From MiTabla","MiCURSOR") > 1

   Select MiCURSOR

    Browse

Endif

= SQLDisConnect(nH)

Función API parecida a la función LEN( ) de VFP.

Declare Integer lstrlen IN kernel32 String lpString

? lstrlen("La Web
de Davphantom")

Excelente y fácil forma de convertir
milisegundos o segundos al formato horas - minutos - segundos

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