FiveTech Software tech support forums

... function download()
local oInternet := TInternet():New()
local oFTP := TFTP():New( "192.168.0.230", oInternet,"remanco", "pwremanco" )
local aFiles
local handle
*----------------------------------------------------------

if ! Empty( oFTP:hFTP )

FtpSetCurrentDirectory(oFTP:hFTP, "/usr ...

Does it works?

:shock:


agentdoc.prg
#include "FiveWin.ch"

REQUEST DBFCDX

function Main()

local aFiles := Directory( "c:\fwh\source\classes\*.prg" )
local oChat := TDeepSeek():New(), aFile
local cPrompt := "document this code, explaining what this Class is about," + ;
" listing all the ...

agentdoc.prg
#include "FiveWin.ch"

REQUEST DBFCDX

function Main()

local aFiles := Directory( "c:\fwh\source\classes\*.prg" )
local oChat := TDeepSeek():New(), aFile
local cPrompt := "document this code, explaining what this Class is about," + ;
" listing all the DATAs and METHODs," + ;
" and ...

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 [1] )

fai un display della variabile cFILE se comprende il path completo + \ , es. c:\mydir\temp2.cdx o ...

Dear Marc,

AEval( Directory( "*.prg" ), { | aFile | CopyFile( aFile[ 1 ], "path\" + aFile[ 1 ] ) } )

... es la unica diferencia que he encontrado. este mi proceso alguna sugerencia muy agradecidos:

Function VerUpdate()
local oInternet,oFtp,oWait
local aFiles,cFile,mFile:={}
local cServer := "ftp.servidor.com"
local cUser := "user@servidor.com"
local cpassword:= "clave"
local rRuta := "/public_ftp/ruta ...

... Function TestFtpDir()
local oInternet := TInternet():New()
local oFtp := TFtp():New( "speedtest.tele2.net", oInternet,"anonymous" )
local aFiles
if !Empty( oFtp:hFTP )
aFiles := oFtp:Directory( "*.*" )
MsgInfo( Len(aFiles),"aFiles" )
AEval( aFiles, { | aFile | MsgInfo( aFile[ 4 ], aFile ...

... cString>,<nValue>,[<nPos>])->cNewString
AddMonth(<dDate>,<nMonths>)->dNewDate
ADel(<aArray>,<nElement>,[<lShrink>])->aTarget
ADir([<cFileSpec>],[<aFilenames>],[<aSizes>],[<aDates>],[<aTimes>],[<aAttributes>])->nFiles
ADSBlob2File(cFileName,cFieldName)->lSuccess
ADSClearAOF()->Nil
ADSCustomizeAOF ...

Each attachment has to be an array of two items:

AADD( aFile, { "fullpath and filename", "filename only" } )

EMG

... The error message you posted before is occurring in the second line here (6394 in ADORDD.PRG):

if lOverWrite
hb_adoRddDrop( oCn, cBaseDir + aFile[ F_NAME ], , , DBEngine ) // erroring here
endif

But since you are passing .f. for lOverwrite, that line is not being executed, so it must be ...

... TSBUTTON.PRG'...
.\prg\TSBUTTON.PRG(166) Error E0019 #error: 'Class "TSButton" not declared for
method: New( nTop, nLeft, cPrompt, oWnd, aResource, aFile, aSize, lPixel, bActio
n, bWhen, bValid, lDefault, oFont, cMsg, cToolTip, nHelpId, cBorder, lCancel, l
Adjust, aColors, nCaptPos, lOpaque, oPBrush ...

... GalleryIcopyfil/Icopyfil.prg >
I reached this point : serverconnection, but the copyprocess doesn't start.

I listed the homepage-directory :

aFiles = oFTP:Directory( "*.*" ) // , "D" )
AEval( aFiles, { | aFile | MsgInfo( aFile[ 1 ], aFile[ 3 ] ) } )

results :
------------------
.
..
Firma ...

... oInternet := tInternet&#40;&#41;:New&#40;&#41;oFtp &nbsp; &nbsp; &nbsp;:= tFtp&#40;&#41;:New&#40;cIp,oInternet,cFtpUserName,cFtpPassword&#41; aFiles:=oFtp:Directory&#40;cFolderName+"\"*.* )

Display the contents of the aFile to the user to choose the required file and then download it. Just an ...

... MAIN(cFile)
LOCAL aPag
LOCAL cBin :=Lower(GetModuleFileName( GetInstance() ))
LOCAL cFileDir:="FILES.DBF"
LOCAL cFilePag:="FILESPAG.DBF"
LOCAL aFile,I

DEFAULT cFile:=cBin

SET DELETE ON

IF !FILE(cFile)
MsgAlert("Archivo "+cFile+" no Existe")
RETURN NIL
ENDIF

ISTABLAS(cFileDir,cFilePag ...

Karinha,

Checa estas funciones, a mi me funcionan!!

STATIC FUNCTION Comprime(cFile,aFile)
LOCAL oDlg,oMeter,oText,cMsg,nLen,lVal,nActual:=0
nLen:=Len(aFile)
DEFINE DIALOG oDlg FROM 1, 1 TO 10, 60 TITLE "Espere, reuniendo archivos..."
@ 0.5, 2 SAY oText VAR cMsg SIZE 180, 20 OF oDlg
@ 2, 2 METER ...