Dim ftp1 As New FtpClient ftp1.Host="127.0.0.1" ftp1.Account = "test" ftp1.Password = "test" If ftp1.Upload("d:\aaa","/testaaa") = True Then Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) Else Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information) End If