Queuing files

[Gintaras]

Macro Macro1545

Code:

Copy      Help

,;****now upload***
,int failed=0
,err-
,;...
,Ftp f.Connect(ftp_server ftp_username ftp_password)
,if(!f.DirSet(ftp_directory)) goto gFailed
,if(!f.FilePutWithProgress(local_file "")) goto gFailed
,;...
,err+
,,;gFailed
,,failed=1
,if(failed) xe.AddRowSA(-1 2 &s1) ;; on any other error, relist failed file/profile to row
,else del s1



;I would place FTP uploading code in separate function. Then if fails, ret 0. Finally ret 1 if succeeds.