主题：自制ftp上传不了文件，请高手协助

测试没问题

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