FiveTech Software tech support forums

Hola.
Cuando quiero usar la función Frename() no me deja renombrar el archivo y me tira un -1, mirando con el FError() me tira el numero 32
que significa? como puedo solucionarlo?

gracias.

... := DIRECTORY(cDir+ "*.*" ) local i,cFile FOR i = 1 to LEN( aDir ) cFILE := ALLTRIM( aDIR[i][1] ) IF FErase(cDir+cFile ) != 0 Msginfo( FERROR() ,cfile) endif NEXT return nil

... allora devi controllare il contenuto dell'array IF cFile <> "." .OR. cFile <> ".." IF FErase(cDir+cFile ) != 0 ? FERROR() ENDIF ENDIF consiglio 1 : senza parametro "D" consiglio 2 : metti il path -> cDir + cFile

Ho messo un trace msginfo(ferror,cfile)
Tutti e due i messaggi viene visualizzato l'errore 5 , il primo mi dà "." e il secondo ".." è sta cosa che non ho capito.

In the context of Clipper and Harbour programming, the DOS error code 5, as returned by the FERROR() function, indicates "Access denied"​​. This error typically occurs when a program attempts to access a file or directory for which it does not have the necessary ...

In the context of Clipper and Harbour programming, the DOS error code 5, as returned by the FERROR() function, indicates "Access denied"​​. This error typically occurs when a program attempts to access a file or directory for which it does not have the necessary ...

...   FOR i = 1 to LEN( aDir )                    cFILE := ALLTRIM( aDIR[i][1] )                    IF FErase(cDir+cFile ) != 0                     ? FERROR()                     endif              NEXT     return nil Erased only some files ( 2 not) and the "?Ferror" give me this https://i.postimg.cc/j2JWCZs1/ff.png

... file is in use by some application or some other reason. The best way to find out the reason is to if FERASE( cFile ) != 0   ? FERROR()endif FError() tells you the reason why the file is not erased

simply try to open in exclusive mode before
#include "FileIO.ch"

FUNCTION MAIN( cFile )
LOCAL nHandle

nHandle := FOPEN( cFile , FO_EXCLUSIVE )
IF nHandle = -1
? "Error" , FERROR()
ELSE
? "nHandle" , nHandle
FCLOSE( nHandle )
ENDIF

RETURN NIL

... * be even duplicated. * * In an HIT, this is not allowed. * * The untranslated entry will be an empty string. * * On failure, NIL is returned. IF Ferror() is not 0, you can suppose that * an hardware failure happened, else you can suppose that the file is * malformed. * * * HB_I18NSaveTable( cFileName| ...

... correctamente, escribo el ejemplo: cDestino:="c:\archivos\archivo.rtf" cFile:="archivo.rtf" nHandle:=FCreate(cDestino) IF !FError() # 0 FWrite(nHandle,cFile,len(cFile)) FClose(nHandle) *ACÁ COMPARO SI EL TAMAÑO ORIGINAL ES EL MISMO DEL DESCARGADO y me descarga siempre 64k... ...

... FClose(<nHandle>)->lError FCount()->nFields FCreate(<cFile,[<nAttibute>])->nHandle FErase(<cFile>)->nSuccess FError()->nErrorCode Field(<nPosition>)->cFieldName FieldBlock(<cFieldName>)->bFieldBlock FieldDec(<nFieldPos>)->nDecimalPlaces ...

... Eof EoM EoQ EoY Error ErrorBlock ErrorLevel ErrorNew ErrorSys Eval ExeName Exp Expand Exponent Fact Fahrenheit FClose FCount FCreate FErase FError Field FieldBlock FieldDec FieldDeci FieldGet FieldGetArr FieldLen FieldName FieldNum FieldPos FieldPos FieldPut FieldPutArr FieldSize FieldType ...

... -I%C_INC_INSTALL%\dinkumware64%CRLF% -I%C_INC_INSTALL%\windows\crtl%CRLF% -I%C_INC_INSTALL%\windows\sdk%CRLF% -O2%CRLF% -ferror-limit 50 -fmessage-length 126 -fno-use-cxa-atexit%CRLF% -fborland-extensions -std=c++11 -fcxx-exceptions -fexceptions -fseh %CRLF% -fdiagnostics-show-option%CRLF% ...

... -I%C_INC_INSTALL% -I%C_INC_INSTALL%\windows\crtl -I%C_INC_INSTALL%\dinkumware64 -I%C_INC_INSTALL%\windows\crtl -I%C_INC_INSTALL%\windows\sdk -O2 -ferror-limit 50 -fmessage-length 126 -fno-use-cxa-atexit -fborland-extensions -std=c++11 -fcxx-exceptions -fexceptions -fseh -fdiagnostics-show-option ...