FiveTech Software tech support forums

Hello, I think I found an example: function setfiledate(cFile, dDate) local hFile := FOpen( cFile, FO_READWRITE ) local aInfo SET DATE FRENCH SET CENTURY ON SetFTime( hFile, "13:00:00", dDate ) // MsgInfo( "D o n e !" ) FClose( hFile ) return nil I will test. Best regards Otto

Por favor postea el error que se genera, y disculpa, olvidé comentarte que es una funcion de bajo nivel y usa fileio.ch* Pon al inicio del fichero principal de tu programa #include "fileio.ch", o usalo como variable local. ej local FO_EXCLUSIVE := 16 ---------------------------------------...

Please use this function. This is very fast. function FW_DbfRenameField( cDbf, cField, cReplace )   local lSuccess := .f.   local hFile, nHeaderSize, nAt   local cBuf     := Space( 32 )   if !File( cDbf )      ? cDbf + " not found"      return .f.   endif   if Empt...

*************************************************************** * NOTE - I DO NOT OWN, OR DEVELOPED, THIS CODE AND AM POSTING IT ONLY FOR THE PURPOSES OF GETTING ASSISTANCE. IT IS NOT TO BE * COPIED OR REUSED. * THANKS FOR UNDERSTANDING. **************************************************************...

... // Last error in the selected language cSqlInfo // Last sql execution informatuon in selected language lOpen // If connection is open or not. ReadWrite: lLog DEFAULT .f. // If .t. all sql statements and results are logged to <exename>.log Cargo // read-write by user METHODS: Connect() ...

If I open exe in this way it works
FOPEN( "cic_spi.exe" , FO_READWRITE )

in this way not
FOPEN( "cic_spi.exe" , FO_EXCLUSIVE )

because I can open exe even if it is already running

Best regards
Marco

FOpen() Opens a file on the operating system level. Syntax FOpen( <cFileName>, [<nMode>]) --> nFileHandle Arguments <cFilename> This is a character string holding the name of the file to open. It must include path and file extension. If the path is omitted from <cFileName>...

... que hace el trabajo, y varios accesorios. TQuery - Clase para gestionar las consultas - ReadOnly TModel - Similar a tu propuesta de TTable. ReadWrite. Hace las veces de TDBF: es un buffer de edición, sabe hacer un BLANK para editar un nuevo registro, etc. Con estas 3 clases vengo haciendo ...

Jose Luis, yo hago el mysqldump por medio de un .bat cFile := "backup.bat" lEsc := .f. FErase( cFile ) if ! FILE( cFile ) nHand := FCreate( cFile ) FWrite(nHand, cComando ) FClose(nHand) // Respaldo Antes de la Auditoria, Nombre del DUMP cFileBackup := 'respaldo_' + DTOS(Date()) + '_' + Ti...

Estas usando FO_READWRITE + FO_EXCUSIVE que son parametros del fOpen para identificar el modo de apertura. En teoria si cambias el fCreate actual por algo parecido a esto, deberia crearte un fichero normal. local nHandle := fcreate( cFile, FC_NORMAL )  FC_NORMAL 0 Normal Creates a normal rea...

... http://i1176.photobucket.com/albums/x332/CyberDevilz/Android/zMdd6jo4V1JwDGZM3ozwvlccrytf1V2Otvk.jpg http://readwrite.com/files/files/files/hack/images/android-code-editor_screenshot_0611.jpg https://lh6.ggpht.com/PkuLClxM7J6JKrhODvBA3c_sjiguA7DmMfI2jrfdKVBZ56Aev3DvgFAQWudmVAqiWQ ...

... Newegg’s SVP of product management told ReadWrite that Windows 8 sales “did not explode,” though he noted that they’re slowly improving. Meanwhile, manufacturers like Asus and Fujitsu have ...

... // -------------------------- * * && NDOSNUME := FCREATE ( 'info_system.txt', 1 ) && FO_READ := 0, FO_WRITE := 1, READWRITE := 2 FWRITE ( NDOSNUME, sMensaje ) FCLOSE ( NDOSNUME ) MsgInfo ( sMensaje, "Información Hard" ) Return ( NIL ) * JOHNSON RUSSI /* ...

He utilizado esta function desde hace tiempo, y hasta el momento no he tenido problemas. //-------------------------------- Function CrlProceso(cCadena) local cFile := (cPathDef)+"\Bitaco.txt", nHand local cCad:=Dtoc(date())+" "+time()+": "+cCadena local FO_READWRITE:=2...