Dim ftp1 As
new
ftpclient
ftp1.host="ftp.baidu.com"
ftp1.Account
= "foxtable" ftp1.password = "168168" If ftp1.FileExists("/gd.mdb") = False
Then MessageBox.Show("广东分公司还未上报今天数据","提示") Return End If ftp1.Download("/gd.mdb","c:\temp\gd.mdb")
'下载ftp上的上报文件
加好友 
发短信
Post By：2016/5/2 9:35:00 [显示全部帖子]
