Dim ftp1 As New FtpClient
ftp1.Host="196.128.143.28"
ftp1.Account = "foxuser"
ftp1.Password = "138238110"
If ftp1.Connect ‘判断ftp是否连接成功
If ftp1.Upload("c:\data\Desert.jpg","\update\Desert.jpg") = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Else
msgbox("FTP连接不成功")
End If
[此贴子已经被作者于2016/2/20 22:24:36编辑过]