FTP with wildcard

[Gintaras]

Macro Macro1806

Code:

Copy      Help

Ftp f.Connect("xxx.xxx.xxx.xxx" "username" "password" 0 0 1)

;If need, change current ftp directory to the directory where the file is
if(!f.DirSet("/")) end "failed to set FTP current directory"
ARRAY(STRINT) a

f.DirAll("*" a 2)
int i
for i 0 a.len
,if(a[i].i) continue ;;folder
,out a[i].s
,
,;Download to dir
,f.SetProgressDialog(1)
,if(!f.FileGet(a[i].s F"C:\Store\{a[i].s}")) end "failed to download"

mes "Completed!"