FiveTech Software tech support forums

... Restarting compile using assembly in function testflag Warning W8004 drives.c 475: 'wDrive' is assigned a value that is never used in function SETCURDRIVE Error E2133: Unable to execute command 'tasm32.exe' Warning W8060 fgetclip.c 25: Possibly incorrect assignment in function GETFCLIPDA Warning ...

... Function C_callb local oDlg local oLbx, oFont, oSay local n local oRs, cSay Tipo:="" If lIsDir(Pr_cDrv) = .f. SettaIni() Setcurdrive(substr(Pr_cDrv,1,1)) if lIsDir(Pr_cDrv) = .f. Msgstop('Cartella "DATI" non trovata',"Attenzione!") Return nil Endif ...

... 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 PERO VAMOS... QUE SI NO HAY SOLUCIÓN, ME QUEDO CON LA UBICACIÓN ...

... 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 el “norte” ?curdir() // nos muestra prueba y esto POR QUE!!?? return nil

... 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 el “norte” ?curdir() //nos muestra prueba y esto POR QUE!!?? return nil

... 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 el “norte” ?curdir() //no muestra prueba y esto POR QUE!!?? return nil

... chama a Funcao Exemplo : drive_ok("A:") function drive_ok(adrive) LOCAL nFreeBytes := 0, nTotalSize := 0, nTotalFree := 0 DRV = 0 IF T_FLOPY__ = 1 SetCurDrive( "A:" ) // Liga o Drive A:\ // Se Tiver Disquete no Drive A:\ If GetDiskFreeSpaceEx( "A:\", @nFreeBytes, @nTotalSize, @nTotalFree ) * MsgInfo( ...