Dim ftp1 As New FtpClient
ftp1.Host="hanng.com"
ftp1.Account = "pic"
ftp1.Password = "Ze"
For Each File As String In FileSys.GetFiles("d:\图片\")
ftp1.upload(file, "/" & Filesys.getname(file),True)
Next
If Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If