FiveTech Software tech support forums

JARO, TIENE QUE GUARDAR EL PRIMER DIRECTORIO EN QUE ESTABAS ANTES DE CAMBIARLO.

DESPUES RETORNAR AL MISMO CON EL LCHDIR().

... vuelvo a launidad Resultado, no estoy en el directorio donde me he cambiado anteriormente. function main() ?curdrive() // C ?curdir() // PRUEBA ?lchdir("prueba2") //cambio de directorio ok ?curdir() // PRUEBA\PRUEBA2 setcurdrive("z:") setcurdrive("c:") ?curdir() // PRUEBA , DEBERÍA SER PRUEBA\PRUEBA ...

... de este tipo y mi pregunta es… Es normal el comportamiento de estas funciones? Para probar, el código es muy simple. function main() ?curdir() ?lchdir("prueba2") //cambio de directorio ok ?curdir() //resultado prueba\prueba2 setcurdrive("z:") //esto ok setcurdrive("c:") //momento que pierde ...

... de este tipo y mi pregunta es… Es normal el comportamiento de estas funciones? Para probar, el código es muy simple. function main() ?curdir() ?lchdir("prueba2") //cambio de directorio ok ?curdir() //resultado prueba\prueba2 setcurdrive("z:") //esto ok setcurdrive("c:") //momento que pierde ...

... de este tipo y mi pregunta es… Es normal el comportamiento de estas funciones? Para probar, el código es muy simple. function main() ?curdir() ?lchdir("prueba2") //cambio de directorio ok ?curdir() //resultado prueba\prueba2 setcurdrive("z:") //esto ok setcurdrive("c:") //momento que pierde ...

... #DEFINE FALSE .F. static oFileXLS Local nFont1, nFont2 Local nFormat1, nFormat2,nXlsLine:=0 Public Drive:="D:\",Directory:="TempXLS",Start:="\" lChDir("D:\") lMkDir("TempXLS") lChDir("TempXLS") DEFINE XLS FONT nFont1 NAME "Arial" HEIGHT 12 BOLD <- Why Argument error: SWITCH Please help

... Zip Remoto cUser1:=alltrim(TablaFtp->User)//Usuario CPasswd1:=alltrim(TablaFtp->Passwd)//Contraseña lchdir(cdirlocal1) dbcloseall() FtpEnvio() return nil Function FtpEnvio() local cuser,cpass,cremote,clocal,cfecha cserver:=cdirip1//direccion IP del ...

... LOCAL hBmp, hDib, cDir := "\"+CurDir() DEFAULT cFile := "TGraph.Bmp" IF !lIsDir("\"+CurDir()+"\Graficas") lMkDir("\"+CurDir()+"\Graficas") ENDIF lChDir("\"+CurDir()+"\Graficas") hBmp := WndBitmap( Self:hWnd ) hDib := DibFromBitmap( hBmp ) DibWrite( cFile, hDib ) GloBalFree( hDib ) DeleteObject( ...

... "Envía Libro de Ventas a Excel" Action (_LF_Excel_(oDbf,_Titulo),oBrw:SetFocus(),oBrw:nRowPos:=1, oBrw:Refresh(),Open_XLS("D:\TempXLS\LIbroF.XLS"),lChDir(Before)) Acá, se ejecuta la construcción del cuadro excel... #include "fivewin.ch" #include "FileXLS.ch" #define BORDER_UP nOr( BORDER_TOP ) ...

... several file, also work fast DeleteFiles("c:\myapp\" , "*.ppo") Funct DeleteFiles(FromWhere,WhatFiles) local Curdir:= CurDrive()+":\"+CURDIR()+"\" lChDir(FromWhere) // Ferase work on current dir, so change dir aFiles := Directory(FromWhere +WhatFiles) Aeval(aFiles, {|v| Ferase( v[1]) }) lChDir(CurDir) ...

... > Prueba con MsgInfo( MemoRead( "\\computadora\path\fichero.txt" ) ) > ** NO PURDO CAMBIAR LA VARIABLE CURDIR() ** Aún no hemos implementado lChDir( <cDirName> ) > ** CUANDO COLOCO UN SAY EN MI PROGRAMA APARACE LA PRIMERA VEZ, LA SEGUNDA VEZ COLOCO EL SAY EN LA MISMA POSISCION LA ...

... //->MAIN() MEMVAR cPRGPATH, cFILEPATH cPRGPATH := cFILEPATH(GETMODULEFILENAME(GETINSTANCE())) cPRGPATH := cShortName(cPRGPATH) XBACKUPLITE() lCHDIR(cPRGPATH) RETURN NIL Gracias a Usted y Kleyber Derick. Saludos mi amigo.

Gustavo,

La función en FW se llama lChDir( cDirName )

Linkeaste la libreria FiveHC tambien, ademas de librerias de (x)Harbour ? Efectivamente estaba indicada esa librería, ya la quite pero ahora me manda muchos mas errores. El archivo .MAK que estoy usando lo tome de FWH\SOURCE\FUNCTION y se llama CBATIWIN.MAK a partir de ese archivo hice el que estoy...

... discover as solving still. http://www.griaule.com/page/pt-br/downloads #include "FiveWin.ch" STATIC xLib function Main() Local contextId,Ret lChDir("C:\Arquivos de programas\Griaule\GrFinger 4.1 FREE\bin") xLib:=LoadLib32("GrFinger.dll") Ret:=GrInitialize() ? ret contextId:=0 Ret:=GrCreateContext(@contextId) ...