FiveTech Software tech support forums

hfile toma valor, y aunque se cierre con FClose() ese valor permanece.
No hay ningun tipo de ligazón entre hFile y el fichero al que representa más que con el uso de las funciones file

Prueba a hacer un SysRefresh() antes del rename para darle opción a Windows a procesar tu petición:

fclose(hfile)
SysRefresh()
...

... if ($Report == false) { echo ("Error in opening new Report"); exit(); } fwrite($Report, "Print Report: Verkauf "); fclose($Report); The FIVEWIN program prepares all the data for the report and stores the data in a CSV file. PHP program is waiting: while ($x <= ...

... PARA RECUPERAR FUNCTION EDATOS(cDAT,cNOM) cARCH=HexToStr(cDAT) ASALIDA:=".\"+cNOM hFile := FCreate(asalida) FWrite( hFile, cARCH) FClose( hFile ) RETURN NIL

... IsDirWritable(cDir) LOCAL cFileName LOCAL nFileHandle nFileHandle := HB_fTempCreate(cDir, NIL, FC_NORMAL, @cFileName) IF nFileHandle != F_ERROR fClose(nFileHandle) fErase(cFileName) RETURN .T. ENDIF RETURN .F.

... FSeek( hSource, 0, 0 ) nFile := 0 while ( nBytes := FRead( hSource, @cBuffer, nBufSize ) ) > 0 oFile:Write( SubStr( cBuffer, 1, nBytes ) ) end FClose( hSource ) oFile:End() return .t. //----------------------------------------------------------------------------//

I don't think fclose() does anything since it requires a file handle, not a filename

... That was included for the upload as variable cUpFile. Switching to that, the deletion occured. Thanks for the ideas. I have left the SysWait and FCLOSE functions in place to make the process more stable.

Hi friend.

Can you try ..

Fclose (cTxtfile)

Before érase.

Regards

José

Enviado desde mi Lenovo TB-J606F mediante Tapatalk

... leer "+cSQLP ) showError( oErr ) wtxt = "errorge.txt" cHandeg = FCREATE ( wtxt ) FWrite ( cHandeg, cSQLP + chr( 13 ) + chr( 10 ) ) fclose(cHandleg) RETURN NIL END TRY Saludos Jorge

... --header "authorization: xxxxxxxxxxxxxxxxxxxx" --data-binary @'+cFileName+' https://'+cURL+' --output '+salida+' -D '+headers+' -v' ) FClose(m) //----------------------------- WaitRun("LROE.bat",0) CursorWait() Donde: header "authorization: xxxxxxxxxxxxxxxxxxxx" ...

... y luego para recuperarlo, lo descomprimo: nHandle:=FCreate(cTempZip) FWrite(nHandle,bFOTOS:fotografia,Len(bFOTOS:fotografia)) FClose(nHandle) aFiles:=hb_GetFilesInZip(cTempZip,.t.) Hb_UnZipFile(cTempZip,,.T.,,cTemp,aFiles[1],NIL) cFoto:=cTemp+aFiles[1,1] Espero te sirva... ...

... $ Chr(195)+Chr(204), 14+cVarRec, 22 ) Fseek(nMemHandle, nMemCount, 1) aadd(aVar,{cVarName,cVartype,cVarRec,nMemCount}) EndDo xbrowser avar Fclose( nMemHandle ) return nil

... If( ( nHandle := fcreate( cPath+'TRA.xml', 0 ) ) == -1 ) MsgStop( 'NO se pudo crear TRA.xml',' ERROR' ) Return( .F. ) Else fWrite( nHandle, cXml ) fClose( nHandle ) End cCmdSign := 'openssl smime' +; ' -sign' +; ' -in ' + cPath+ 'TRA.xml' +; // Archivo XML a Firmar ' -out ' + cPath+ 'TRA.tmp' +; ...

... If( ( nHandle := fcreate( cPath+'TRA.xml', 0 ) ) == -1 ) MsgStop( 'NO se pudo crear TRA.xml',' ERROR' ) Return( .F. ) Else fWrite( nHandle, cXml ) fClose( nHandle ) End cCmdSign := 'openssl smime' +; ' -sign' +; ' -in ' + cPath+ 'TRA.xml' +; // Archivo XML a Firmar ' -out ' + cPath+ 'TRA.tmp' +; ...