FiveTech Software tech support forums

... {fonts}; FontInstall: ean-13.ttf; Flags: onlyifdoesntexist en FiveWin crees que podría funcionar así: cOrigem := "c:\test\teste.ttf" cDestino := GetWinDir()+"\fonts\teste.ttf" __CopyFile(cOrigem,cDestino) []´s

... aAttach := {}********************************************************************************Function Main()local cdestino :="chino72vale@hotmail.com;ferropuerto@ferropuerto.com"local carchivos:={"C:\fwh\samples\hola.txt","C:\fwh\samples\texto.txt"}local ...

... "Fivewin.ch" #include "wininet.ch" 2) Escribe la siguiente funcion: FUNCTION SubirFtp( cFtpAddress, cUser, cPass, cOrigen, cDestino, nPort, nService ) local hWinInet, hInternet, hConnect, lOk // cargamos la DLL si no estaba cargada hWinINet := WinINet() if hWinINet < ...

... programa comprueba que el ocx no está instalado lo copia en el directorio system32 y lo registra. Utilizo la orden Copy File &cOrigen TO &cDestino Con windows xp funciona perfectamente, pero con Windows 7 da un error al copiar el fichero a system32. ¿Cómo se puede hacer? Muchas gracias ...

... // cFtpAddress nombre del host (ftp.fivewin.com) // cUser Usuario del Host // cPass Password del Host // cOrige path origen, (csv/pepe1.txt) // cDestino path destino (/html/csv/pepe2.txt) FUNCTION SubirFtp( cFtpAddress, cUser, cPass, cOrigen, cDestino ) local hWinInet, hInternet, hConnect, lOk ...

Amigos, el ejemplo de Cuellar funciona asi: cOrigen:="C:\SISTEMAS\*";cDestino:="D". Es rapidisimo (5800 files no grandes, en 5 segundos, en mi pobre equipo), pero...
así, no: cOrigen:="C:\SISTEMAS\BANCOS\*";cDestino:="D" (por ejemplo)

... esta en esta linea oHttp:Open("GET","http://maps.google.es/maps? saddr= "+alltrim(cOrigen)+"& daddr= "+alltrim(cDestino),.F.) y en la pagina que responde cTextoHTML:=oHttp:ResponseText() #include "FiveWin.ch"static oDlg,cOrigen:="",cDestino:="",cTextoHTML:="",nDistancia:=0,cTiempo:=""static ...

... ) RegisterServer( "Codejock.CommandBars.v13.0.0.Demo.ocx" ) endif tampoco esto:: WinExec( "REGSVR32 " + cDestino + " /s" ) como se debe registrar el OCX desde Fwh... ALGUIEN SABE

... va la aplicacion cuando muestra el cGetfile()... FUNCTION OtroCopiarFotoRI() Local cFileACopiar := cGetFile( "*.jpg", "Seleccione la foto" ) Local cDestino := "C:\Masterform\Fotos\" cNombreFoto:= "I"+SubStr(irNroNuevo,-7)+".JPG" cDestino := cDestino+cNombreFoto IF !Empty(cFileACopiar) COPYFILE( ...

... en xP, NO FUNCIONA EN VISTA Dejo aqui el código. FUNCTION OtroCopiarFotoRI() Local cFileACopiar := cGetFile( "*.jpg", "Seleccione la foto" ) Local cDestino := "C:\Masterform\Fotos\" cNombreFoto:= "I"+SubStr(irNroNuevo,-7)+".JPG" cDestino := cDestino+cNombreFoto IF !Empty(cFileACopiar) COPYFILE( ...

... RETURN NIL ENDIF if !File((cDestination)) Copy File &cOriginal TO &cDestination endif if File((cDestination)) WinExec( "REGSVR32 " + cDestino + " /s" ) endif ::lOk := IsActiveX( "CoolControls.jcFrames" ) IF !::lOk MsgInfo( "Error to Register "+cOriginal+" File" ) ENDIF RETURN NIL ...

Hola, ¿Dónde puedo ver un listado de todas las acciones que puedo enviar a la hoja de cálculo (ej: oExcel:ActiveSheet:SAVEAS(cDestino) oExcel:DisplayAlerts= .T. confirmación, etc.) Hasta ahora, lo único que hago es, con Ole2, abrir/crear la hoja de cálculo y hacer un volcado de todo ...

... la misma, pero por el ancho de este correo aparecen como dos líneas distintas: FUNCTION MAIN() LOCAL cOrigen := "c:\fwh\samples\manu.xls" LOCAL cDestino := "c:\fwh\samples\manu2.xls" LOCAL oExcel := CREATEOBJECT( "Excel.Application" ) LOCAL oWorkBook := oExcel:WorkBooks:Open(cOrigen) oExcel:ActiveSheet:Copy( ...

Necesito que al hacer __CopyFile(cOrigen, cDestino ) o COPY FILE (cOrigen) TO (cDestino) La fecha del archivo en destino sea la misma que la fecha en Origen Ahora me esta poniendo la fecha de creación del archivo.hoy ahora Me serviria tambien ...