Dim ftp1 As New FtpClientftp1.Host="www.bbc.netftp1.Account = "ftp2"ftp1.Password = "2222" For Each File As String In FileSys.GetFiles("D:\")
If ftp1.Upload("file,"\upfile1\pic") = True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)Next