FiveTech Software tech support forums

SIlvo

Are you sure cFile contains the full path of the file you wish to delete ... cfile := "c:\mydata\main.exe" the ferase( cFIle ) should work.

Rick Lipkin

I t ried with FERASE( cFile ) or DELETEFILE( cFile ) with no success!!!

How I can resolve ?

... function main() local aFiles:={}, cFilZip AADD(aFiles, "c:\fwh\samples\testdlg.prg") cFilZip := "c:\fwh\samples\test.zip" ferase(cFilZip) lOK := HB_ZipFile( cFilZip, aFiles, 9,,,'695',.F. ) //695 is a password ? lOK return

... := 0 Local oHttp := CreateObject( "MSXML2.XmlHttp" ) Local cLogFile := Mcs_AppPath() + "JSONSend.txt" If File( cLogFile ) Ferase( cLogFile ) Endif Begin Sequence oParms["message" ] := "Test Text from the EZ Texting API." oParms["PhoneNumbers"] ...

no salia con los archivos cambiando de .a a .lib Proyecto: formatos, Entorno: fwh2404.64bcc77: [1]:harbour.Exe Source\menu.prg /m /n0 /gc1 /es2 /a /iE:\Tools64\Bcc7.7\include;E:\Tools64\Fwh2404\include;E:\Tools64\xharbour_bcc77\include /iE:\Tools64\xharbour_bcc77\Include /iE:\Tools64\Fwh2404\include...

... DELETED ON SET AUTOPEN ON SET FIXED ON SET AUTORDER TO 1 SET DEFAULT TO &RutaDat SetHandleCount(200) CDX1:=RutaDat+"\VENTAS44.CDX" FERASE("&CDX1") IF !FILE("VTAFUS.DBF") Vec1:={} AADD(Vec1, {"FECHA ", "D", 8, 0}) AADD(Vec1, {"HORA ...

... Cancella_Archivi(cDir) local adir := 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

... il parametro "D" 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

LOCAL xPath := "C:\PDF\" * --- Elimina File che Iniziano con CLI_...PDF AEVAL(DIRECTORY(xPath + "CLI_*.PDF"),{|aFile|FERASE(xPath + aFile[F_NAME])} ) nel tuo comando : cFILE := ALLTRIM( aDIR[i][1] ) fai un display della variabile cFILE se comprende il path completo + \ ...

carlos vargas wrote:Recordar que existe una función llamada hb_dbdrop la cual elimina la tabla y sus archivos de índices y memo fil asociados.

gracias, tienes las características y parámetros de esta función? sin embargo ahora parece estar bien con "ferase"

The command ERASE <cfile> is preprocessed as FERASE( <cfile> ). This command or function should work (and it works for me) if the file exists and is not in use and can be deleted. If the ERASE command does not really erase an existing ...

... 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.

Hola,

Entiendo q quieres borrar el fichero para q no se quede por alli una vez cierres el visor. O creas un hilo q este pendiente o despues de abrir puedes hacer algo como

While fErase(cFile) = -1
Syswait(1)
End

No lo he probado. Este paso te congela la aplicacion, claro

C.

sugiero lo que comenta Joao
al cerrar o salir de los sistemas
aFicheros := directory( ".\tmp\*.*" )
for i := 1 to len(aFicheros)
ferase( '.\tmp\'+aFicheros[i][1] )
next

... largo:=pdfend-pdfin resp:=substr(response,pdfin,largo+4) cFilename:="texto.pdf" * Grabo el Archivo PDF ferase(cfilename) oText:= TTxtFile():New( cfilename ) if oText:Open() oText:add(alltrim(resp)) endif oText:close()