* get the files to the headoffice DIMENSION laFiles[1,4] *connect FTP server oFTP.FTPConnect(THISFORM.sync_ftp_server,THISFORM.sync_ftp_user,THISFORM.sync_ftp_pass) *get the files lnResult = oFTP.aFTPDir(@laFiles,ALLTRIM(THISFORM.sync_fromheadoffice)+"/*.*") FOR x=1 to lnResult *---------------------------------------------* * FTP du fichier du serveur * *---------------------------------------------* lResult = oFTP.FTPGetFile(THISFORM.sync_ftp_server,; ALLTRIM(THISFORM.sync_fromheadoffice)+"/"+ALLTRIM(laFiles[x,1]),; "..\synchro\in\"+ALLTRIM(laFiles[x,1]),1,; THISFORM.sync_ftp_user,; THISFORM.sync_ftp_pass) IF lResult = 0 THISFORM.Scnstatus.Value = "Retreiving "+ALLTRIM(laFiles[x,1])+"..." * lResult = oFTP.FTPDeleteFile(ALLTRIM(THISFORM.sync_fromheadoffice)+"/"+laFiles[x,1]) IF lResult != 0 THISFORM.Scnstatus.Value = "Failed to delete" WAIT oFTP.cErrorMsg window ENDIF ELSE THISFORM.Scnstatus.Value = "Retreiving "+ALLTRIM(laFiles[x,1])+" (Failed)..." WAIT "STOP2" WINDOW WAIT oFTP.cErrorMsg window ENDIF *---------------------------------------------* * Load back the data * *---------------------------------------------* ENDFOR oFTP.FTPclose()