主题：自动下载设置

Dim ftp1 As new ftpclient
ftp1.host="128.169.143.96"
ftp1.Account = "foxuser"
ftp1.password = "136137138"
For Each fn As String As As String In ftp1.GetFileList("/data")
     if filesys.FileExists("c:\data\" & fn) = False
              ftp1.Download("/data/" & fn, "c:\data\" & fn)
     end if
Next