Puedes mapear una unidad de disco de diferentes formas ... en este ejemplo se utiliza WSH (Windows Script Host).

oWSH = CREATEOBJECT("Wscript.Network")

oWSH.MapNetworkDrive("P:",
"servercarpeta")

Release oWSH

Pequeño truco para escoger un número al azar .... ideal para una lotería.. je,je,je..

nVueltas = Int(2000 * Rand( ) + 1) && Vueltas para seleccionar el número ganador

nControl = 0

 

Do While nVueltas > nControl

cNum = Transform(Int(9999
* Rand() + 1) )

    nControl = nControl + 1

@Srows()/2, (Scols()/2 - (Len(cNum)/2))Say cNum Font "Tahoma",30 Style "B"

Enddo

Una forma sencilla de conocer toda la información del procesador de nuestro PC.

? "Número de CPUs: " +
GETENV("NUMBER_OF_PROCESSORS")+CHR(13)

? "Arquitectura del Procesador:
" +GETENV("PROCESSOR_ARCHITECTURE")+CHR(13)

? "Identificador del Procesador
Identifier: " +GETENV("PROCESSOR_IDENTIFIER")+CHR(13)

? "Nivel del Procesador: "
+GETENV("PROCESSOR_LEVEL")+CHR(13)

? "Revisión del Procesador
Revision: " +GETENV("PROCESSOR_REVISION")+CHR(13)

Esta es una forma de convertir una tabla a un archivo TXT utilizando funciones de bajo nivel.

El separador para los campos esta definido en la variable Separa.

Local lnHandle

lnHandle = Fcreate("c:Archivo.txt")

cSepara = "-"

cCadCamp = ""

 

Use Tabla

Go Top

 

Scan

    For i = 1
To Fcount()

        cCadCamp = cCadCamp +
Alltrim(Transform(Eval(Field(i))))
+ cSepara

   
Endfor

    cCadCamp =
Left(cCadCamp,
Len(cCadCamp)-1)
+ Chr(13)+Chr(10)

Endscan

 

=Fputs(lnHandle,cCadCamp)

=Fclose(lnHandle)

Use In Tabla

Estos son los archivos necesarios para poder ejecutar una aplicación desarrollada en VFP.

msvcr71.dll    -   Runtime de  VC++ 7.1
gdiplus.dll       -  Soporte para GDI+
vfp9r.dll
vfp9t.dll

Archivos de Idiomas

vfp9renu.dll  -  Inglés
vfp9resn.dll  -  Español

msxml3.dll si usas XMLTOCURSOR
 

Otra forma de convertir de Hexadecimal a entero ..... esta vez a través del API.

Esta es una forma de conectarse a SQL Server cuando utilizas la autenticación a nivel de Windows.

En este caso utilizamos al función SQLStringConnect para realizar la
conexión.

Generalmente los Messagebox solo se muestran dentro del _Screen de VFP pero existe un valor no documentado que hace que el Messagebox se muestre encima de todas las ventanas de Windows.

Ejemplo básico de como utilizar el objeto CursorAdapter para realizar consultas a una base de datos

oCA = Createobject("CursorAdapter")

cCodigo = "0001"

cCmdSQL = "select * from Tablas Where Codi = ?cCodigo"

 

oCA.SelectCmd= cCmdSQL

oCA.DataSourceType ="ODBC"

oCA.Datasource =
SQLConnect("MIDSN")

* oCA.DataSource = SQLStringConnect("cadenaconexión")

 

If oCA.Datasource< 1

    ?"Error"

Else

    oCA.CursorFill()

    Browse

Endif

Una truquito que te muestra una barra de progreso cuando esta indexando una tabla.

Public oForm

oForm =Createobject("Form")

Set Talk Off

With oForm

    .Caption=""

    .AutoCenter= .T.

    .Width= 375

    .Height= 31

    .Visible= .T.

nbsp;   .ControlBox= .F.

    .AddObject("oBarra","OleControl","mscomctllib.progctrl.2")

 

    With .oBarra

nbsp;       .Visible= .T.

        .Left= 4

        .Top= 5

        .Width= 368

       .Height= 20

        .Min= 1

    Endwith

Endwith

Create Cursor MiTabla (Campo C(12))

For i = 1To
10000

    Append Blank

Endfor

 

nTotReg =
Reccount("MiTabla")

Locate

oForm.oBarra.Max= nTotReg

Index On Progreso(Campo, Recno(), nTotReg) Tag Campo

oForm.Release

Function Progreso(Campo, nRecno, nTotReg)

    cProg = Transform(Round((nRecno/nTotReg)*100,0)) +
"%"

    oForm.Caption="Progreso " + cProg

nbsp;   oForm.oBarra.Value= nRecno

    Return Campo

Endfunc

Muy buen ejemplo que te explica como conectarte a una DBC utilizando el proveedor de VFP.

oCon =
CreateObject("ADODB.Connection")

oRst = CreateObject("ADODB.RecordSet")

 

cCadCon = "Provider=VFPOLEDB.1;"
;

        +
"data source=c:
utaasedatos.dbc"

oCon.open(cCadCon)

cSQL = "select * from Tabla"

DO While !oRst.Eof

  cResult =
""

  For Each oCmp
in
oRst.Fields

    cResult =
oCmp.Value + " - " + cResult

  Next

  ?cResult

  oRst.Movenext

EndDo

Un ejemplo completo de como realizar consultas básicas a una base de datos de SQL Server utilizando el objeto CursorAdapter a través de ADO.

Local oConn As ADODB.Connection, ;

oRS As ADODB.Recordset, ;

oCom As ADODB.Command

oConn =Createobject("ADODB.Connection")

With oCom

    .ActiveConnection = oConn

    .CommandText="select * from Northwind..Orders where customerID = ?"

    .Parameters.Refresh()

    .Parameters(0).Value = "ALFKI"

Endwith

oRS = oCom.Execute()

Local oCAAs CursorAdapter

oCA =
Createobject("CursorAdapter")

oCA.DataSourceType="ADO"

?oCA.CursorFill(,,,oRS)

En este truco utilizaremos el objeto COM SAPI que viene con VFP para convertir una cadena de texto a un archivo de audio WAV.

oObjVoi = CreateObject("SAPI.SpVoice")

oObjStr = CreateObject("SAPI.SpFileStream")

oObjStr.Format.Type
= 6

oObjStr.open("c:Prueba.wav", 3)

oObjVoi.AudioOutputStream = oObjStr

oObjVoi.Speak("Visual Fox Pro")

oObjStr.close