Esta es otra forma de leer
un documento de texto pero esta vez utilizando WSH (FileSystemObject).

Local
fso, cArchivo

fso = Createobject("Scripting.FileSystemObject")

cArchivo = fso.OpenTextFile(Getfile("TXT"),1)

=Messagebox(cArchivo.ReadAll)



 

Este truco te permite
conocer la velocidad y tipo de procesador que tienes instalado en tu PC
.... utiliza WMI, es un nueva herramienta de administración incorporada en
las nuevas versiones de Windows.

objWMIService = Getobject("winmgmts:\\")

colItems = objWMIService.ExecQuery("Select * from Win32_Processor",,48)



For Each objItem In colItems

     ? objItem.Name

     ?objItem.CurrentClockSpeed

Next



 

Esta es la forma de
eliminar una tabla de Access utilizando automatización ....

oAccess
= Createobject("Access.Application")

oAccess.OpenCurrentDatabase(GETFILE("MDB"))

oAccess.CurrentDb.TableDefs.Delete("NombreTablaaEliminar")



 

Aquí tienes la forma de
determinar los privilegios que tiene un usuario en Oracle..... Excelente
truquito.

nH =
Sqlstringconnect("dsn=<datasource>;uid=<user>;pwd=<password>")

_oK = SQLExec(nH, "Select * from SESSION_PRIVS", "c_Users")



If (_oK < 1)

      ? "Imposible Obtener los permisos"

Else

      Scan

           ?
Alltrim(SqlResult.Privilege)

     Endscan

Endif

Este es un ejemplo de como
crear por código una copia de seguridad de las bases de datos de SQL
Server utilizando SQLDMO.

Local
loserver, lnCounter, loBackupDevice



loserver=Createobject("SQLDMO.SqlServer")

loserver.Connect("MiServidor","MiUserName","MiPassword")



If loserver.BackupDevices.Count = 0

       loBackupDevice = Createobject("SQLDMO.BackupDevice")

       With loBackupDevice

             .Name =
"MiNuevoBackup"

             .PhysicalLocation
= "C:\MisBackups\BackupFile.bak"

             .Type =
2 && SQLDMODevice_DiskDump

      Endwith

      loserver.BackupDevices.Add(loBackupDevice)

Else

      For lnCounter = 1 To loserver.BackupDevices.Count

          ?
loserver.BackupDevices(lnCounter).PhysicalLocation

      Next lnCounter

Endif

Esta función devuelve 0
(cero) si la carpeta pasada como parámetro esta vacía sino devuelve 1.

Declare
Integer PathIsDirectoryEmpty in "shlwapi.dll" String pszPath

? PathIsDirectoryEmpty(Getdir())

Define Pad MenMulti
Of _Msysmenu Prompt
"Multicolumna";

Color Scheme
3 ;


KEY Alt+U,
""

On Pad MenMulti
Of _Msysmenu Activate Popup
popMenMulti

Define Popup popMenMulti
Margin Relative Shadow Color
Scheme 4


Define Bar 1
Of
popMenMulti
Prompt
"\|Columna 1"


Define Bar 2
Of
popMenMulti
Prompt
"Columna 1 - 2"


Define Bar 3
Of
popMenMulti
Prompt
"\|Columna 2"


Define Bar 4
Of
popMenMulti
Prompt
"Columna 2 - 2"

Excelente truco que te
permite imprimir una pagina web a través de automatización del Internet
Explorer.

oIE = CreateObject("InternetExplorer.Application")

oIE.Navigate("www.miweb.com/pagina.htm")

oIE.Visible = .T.

oIE.Execwb(6, 1)  &&
Imprimir mostrando el Promtp para seleccionar impresora

*oIE.Execwb(6, 2) &&
Imprimir sin mostrar el Promtp para seleccionar impresora

*oie.execwb ( 7, 2 , 0 , 0 ) && Hacer un
preview

Una forma sencilla de seleccionar el texto de
un control ...

En el evento GotFocus() del control colocas lo
siguiente:

Keyboard '{END}'

Keyboard '{SHIFT+HOME}'

Un EXCELENTE truco de como determinar si un
formulario tiene ScrollBars ...

? Thisform.ViewPortHeight # Thisform.Height

? Thisform.ViewPortWidth # Thisform.Width

Aquí tienes otras formas de conocer el programa
asociado a una extensión...

Utilizando API

=Messagebox(assocExe('c:\ruta\archivo.doc'))



Function AssocExe(pcFile)

     cExeFile = ""



     Declare Integer FindExecutable In shell32;

             string
lpFile, string lpDirectory,;

             string
@ lpResult



            cExeFile =
Space(250)



      If FindExecutable(pcFile, "", @cExeFile) > 32

           cExeFile =
Left(cExeFile, At(Chr(0), cExeFile) -1)

      Else

           cExeFile = ""

      Endif



       Return cExeFile

Endfunc

Utilizando WSH

oFs = Createobject("Scripting.FileSystemObject")

loFile = oFs.Getfile('c:\ruta\archivo.doc')

? "Tipo: " + transform(loFile.Type)

Otra Utilizando API

Local lcFile

lcFile = 'c:\ruta\archivo.doc'

? "Type: " + GetFileDescription(lcFile)



Function GetFileDescription(lcFullPath)

      #Define SHGFI_TYPENAME 0x400



      Local lcShFileInfo, lcReturn



      Declare SHGetFileInfo In "Shell32" As
SHGetFileInfoA ;

           String pszPath,
Long dwFileAttributes, ;

           String @psfi, Long
cbFileInfo, Long uFlags



      lcShFileInfo = Space(352)

     =SHGetFileInfoA(lcFullPath, 0, @lcShFileInfo, 352,
SHGFI_TYPENAME)

      lcReturn = alltrim(substr(lcShFileInfo, 273))

      Return LEFT(lcReturn, LEN(lcReturn) - 1)

Endfunc

Un truco EXCELENTEEEE .... de como determinar
la parte decimal o fraccionaria de un número.

? ABS(78.53) % 1

? ABS(329.12) % 1

Con WinMe o superior viene la posibilidad de
comprimir y descomprimir archivos sin requerir un programa externo .... aquí
tienes la forma de descomprimir archivos desde VFP.

cZip = "C:\ruta\archivo.ZIP"

cDestino = "c:\temp\"



o=CREATEOBJECT("shell.application")

FOR EACH ofile IN o.NameSpace(cZip).items

      o.NameSpace(cDestino).copyhere(ofile)

ENDFOR

Otra forma de determina si un servicio se esta
ejecutando ..... también se puede hacer con WMI. ... En este caso utilizamos
SHELL.

Para eso solo debes pasarle el nombre del
servicio, en este caso quiero saber si MYSQL esta corriendo actualmente en
Windows.

oshell = CREATEOBJECT("Shell.Application")

? oshell.IsServiceRunning("Mysql")

Otra forma de iniciar o detener un servicio de
Windows .... de igual forma podemos utilizar WMI.. ... En este caso utilizamos
SHELL.

Para eso solo debes pasarle el nombre del
servicio, y si deseas que la configuración perdure después de reiniciar Windows.

Para detenerlo

?oshell.ServiceStop("mysql", .T.)

Para iniciarlo

?oshell.ServiceStart("mysql", .T.)