************************************
* COMPRIMIR
************************************
cNuevoZip = "C:MiArchivo.Zip"
cOrigen = "c:Directorio"

Strtofile(Chr(0x50)+Chr(0x4B)+Chr(0x05)+Chr(0x06)+Replicate(Chr(0),18),cNuevoZip)

oShell = Createobject("Shell.Application")

For Each oArchi In oShell.NameSpace(cOrigen).Items
   oShell.NameSpace(cNuevoZip).CopyHere(oArchi)
Endfor
 

************************************

* DESCOMPRIMIR
************************************
cMiZip = "C:MiArchivo.Zip"
cDirDesti = "c:Directorio"

oShell = Createobject("Shell.Application")

For Each oArchi In oShell.NameSpace(cMiZip).Items

   oShell.NameSpace(cDirDesti).CopyHere(oArchi)
EndFor
 

Use Tabla
cTmp = Getenv("TEMP")+"" + Sys(2015) + ".Tmp"

Copy To (cTmp) Delimited With Tab
_Cliptext = Filetostr(cTmp)

oExcel= Createobject("Excel.Application")

With oExcel
   
.DisplayAlerts = .F.
   .Workbooks.Add()
   .Range("A1").PasteSpecial

EndWith

oExcel.Workbooks(1).SaveAs("c:\prueba.xls")

oExcel.Quit
oExcel= .Null.
Release oExcel
 

oExcel = Createobject("Excel.Application")

With oExcel
   .Workbooks.Open("c:DirMiDocumento.xls")
   .Visible
= .T.
   .Run("MiMacro")
EndWith

oExcel.Quit

Release oExcel
oExcel = Null
 

oSC = Createobject("Wscript.Shell")
oSC.Run("Cscript.exe
MiArchivo.js")

Release oSC

With Thisform.OleMsChart.Axes(1).TickLabels.Font
    .Name= "Arial"
   .Size= 9

   .Color = Rgb(255,94,94)
EndWith

 

Lo que debes hacer es ir al evento KeyPress del TextBox vinculado a la columna y escribir el siguiente código

If nKeyCode = 13

Nodefault
Keyboard "{DNARROW}"
EndIf

Use Home(2)+ "Dataemployee.dbf"
Set Order To EMP_ID Descending

? Iif("DESCENDING"$ Set("ORDER"),"DESC","ASC")

dFecha1 = Ctod("04.01.01")
dFecha2 = Ctod("05.01.01")

? (Year(dFecha2)+Month(dFecha2)/;

   12-Year(dFecha1)-Month(dFecha1)/12)*12

Use Home(2) + "Dataemployee.dbf"

_Vfp.DataToClip("Employee")

oOutLook = Createobject("Outlook.Application")
oEmail = oOutLook.CreateItem(0)
oEmail.Display
With oEmail
   .Recipients.Add("dav_amador@yahoo.com.mx")
   .Subject = "Envio de
emails"
   .Importance = 1
   .Body = "Aquí va el texto del email"
   .Attachments.Add("C:RutaMiArchivo1.ext")
   .Attachments.Add("C:RutaMiArchivo2.ext")
   .Send
EndWith

Release oEmail
Release oOutLook

oOutLook = Createobject("Outlook.Application")
oNMapi = oOutLook.GetNamespace("MAPI")
oInbox = oNMapi.GetDefaultFolder(6)

oEmail = oInbox.Items(3) && Email Nro 3

If oEmail.Attachments.Count> 0 Then
    oEmail.Attachments(1).SaveAsFile("c:miarchivo.ext")
EndIf

Declare Integer GetModuleFileNameIn WIN32API ;
    integer hinst, String @lpszFilename,;
   integer
@cbFileName

cRuta = Space(256)
nBytes = 255

=GetModuleFileName(0, @cRuta, @nBytes)

nBytes = At(Chr(0),cRuta)

cRuta = Iif(nBytes>1,Substr(cRuta,1,nBytes-1),"")
? cRuta
 

Local Array arrFridays[1]
lnFridays = Days2Array(Date(),Date()+60,6,@arrFridays)
? lnFridays
Display Memory Like arrFridays

Function Days2Array
    Lparameters tdStart, tdStop, tnDow, taArray

   Local lnWeeks,ix, lnBase

   lnWeeks = Int((tdStop-(tdStart-Dow(tdStart,tnDow) + 1))/7)

   If tdStart = (tdStart-Dow(tdStart,tnDow) + 1)
       lnWeeks =lnWeeks + 1
       lnBase = -1
   Else
       lnBase = 0
   EndIf

   
If lnWeeks > 0
       Dimension taArray[lnWeeks]

       For ix = 1 To lnWeeks
           taArray[ix]=tdStart-Dow(tdStart,tnDow)+1+7*(ix+lnBase)
       Endfor
   Endif

   Return lnWeeks

En este caso utilizas WSH para configurar como predeterminada una impresora.

cPrint = GETPRINTER()

If !Empty(cPrint)
   oWSH = CREATEOBJECT("WScript.Network")

   oWSH.SetDefaultPrinter(cPrint)

   Release oWSH
   oWSH = Null
EndIf
 

Para el ejemplo crea un archivo INI llamado "archivo.ini" en c: y agrégale los siguientes datos:

[RUTADB]
Directorio =C:MiProgramaDB

Ahora si desde VFP quisiéramos conocer el valor almacenado en la entrada Directorio deberíamos hacerlo así:

? LeerIni("RutaDB","Directorio","c:archivo.ini")

Function LeerIni(cSection, cEntry, cINIFile)

LOCAL cDefault, cRetVal, nRetLen
cDefault = ""
cRetVal = Space(255)
nRetLen = LEN(cRetVal)

DECLARE integer GetPrivateProfileString IN WIN32API ;
STRING cSection, String
cEntry, ;
STRING cDefault, STRING @cRetVal, ;
INTEGER nRetLen, STRING cINIFile

nRet = GetPrivateProfileString(cSection, cEntry, cDefault, ;
@cRetVal, nRetLen, cINIFile)
Return Left(cRetVal, nRetLen)
EndFunc