FiveTech Software tech support forums

... nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg ) local n local hSource, hTarget local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "Fichero no encontrado: " + aSource[ ...

... nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg ) local n local hSource, hTarget local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgInfo( "Fichero no encontrado: " + aSource[ ...

... nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local oFile for n = 1 to Len( aSource ) CursorWait() aSource[n]:=STRTRAN(aSource[n] , "" , "" ...

... nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local oFile for n = 1 to Len( aSource ) CursorWait() aSource[n]:=STRTRAN(aSource[n] , "" , "" ...

... nBufSize, oSay1, oSay2,; oMeter1, oSay3, oMeter2, lEnd, oDlg, oFTP ) local n local hSource local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local oFile for n = 1 to Len( aSource ) CursorWait() aSource[n]:=STRTRAN(aSource[n] , "\\" , "\" ) if ! ...

Dear Antonio, I install xHarbour (Fivetechsoft) / FWH 8.04 in new notebook Windows Vista. I don't know, has it got any conflict. Thanks&regards, Dutch Error E2209 d:\xharbour\include\hbvmpub.h 65: Unable to open include file 'assert.h' Error E2209 d:\xharbour\include\stdarg.h 27: Unable to open ...

Hello Otto

Why you don't use

nFile := fCreate( cDrive + 'TEST.TXT',0)
if nFile == -1
lReturn := FALSE
MsgInfo("Driver not present " )
else
fClose(nFile)
endif

Maurizio

Yo lo tengo asi : FUNCTION CreaTemporal1(cFile) Local aTempora := {}, nFile DO WHILE .T. nFile := cTempFile() nFile := SubStr(nFile,1,At(".",nFile)-1) IF Len(nFile)>6 nFile := SubStr(nFile,1,6) ELSE nFile := nFile+Replicate("0",6-Len(nFile)) ENDIF nFile ...

No hay de queso, nomas de papa

Y eso que en algunos casos, por error de dedo, a la variable le llame nFile cuando debía ser nFila,

Saludos, Armando

EasySoft: Intentalo así: FUNCTION Imprimir() LOCAL nFile := 0 REPORT oReporte bla bla bla .. COLUMN TITLE "Fila" DATA ++nfila 6 RIGHT COLUMN TITLE "Razón Social" DATA (cCliente)->CLI_NOM SIZE 60 LEFT COLUMN TITLE "Plazo" DATA (cCliente)->CLI_DDP ...

... with the * HB_UNZIPFILE() function, so you can use returned result in the code * block. See example below. * $EXAMPLES$ * FUNCTION MAIN() * Local nFiles := HB_GETUNZIPFILE( "test.zip" ) * * if nFiles > 0 * ? "This files Contains ", nfiles * endif * * Return Nil * * Here is an example of How ...

... lEnd, oDlg, oFTP ) //-------------------------------------------------------------------- local n, hTarget, cBuffer := Space( nBufSize ), nBytes, nFile := 0, nTotal := 0, nTotSize := 0 local oFile, aFiles, aSizes := {} for n = 1 to Len( aSource ) aFiles = oFTP:Directory( aSource[ n ] ) if Len( ...

... (nil) Function FTPSendFiles ( aSource, aTarget, oFTP ) Local nBufSize:=4096 local n local hSource local cBuffer := Space( nBufSize ) local nBytes, nFile := 0, nTotal := 0 local nTotSize := 0 local oFile for n = 1 to Len( aSource ) if ! File( aSource[ n ] ) MsgStop( "Fichero no encontrado: " + aSource[ ...

... with the * HB_UNZIPFILE() function, so you can use returned result in the code * block. See example below. * $EXAMPLES$ * FUNCTION MAIN() * Local nFiles := HB_GETUNZIPFILE( "test.zip" ) * * if nFiles > 0 * ? "This files Contains ", nfiles * endif * * Return Nil * * Here is an example of How ...

An old versión (ten years ago), but try this: . . . . . . @ nFile, nCol COMBOBOX oCbx VAR cCbx ; ITEMS aBase ("client.dbf", 42, "fieldnom" ) . . . . . . . . // ----------------------------------------------------------------------- // Function ..: aBase ...