以下为上传文件代码:每次都提示上传失败,但是用管理器却能上传成功,不知为何?
注:【使用server U】,该用户根目录从 FTP服务端设置为\FTPData\合同资料\
是否upload语句不正确?
Dim ftp1 As New FtpClient
ftp1.Host="10.127.158.96"
ftp1.Account = "CommonUser01"
ftp1.Password = "423"
ftp1.UTF8 = True
Dim dlg As New OpenFileDialog
dlg.Filter= "影印文件|*.pdf;*.jpg"
dlg.MultiSelect = False
dlg.InitialDirectory = SpecialFolder.MyDocuments
Dim fileName As String = ""
If dlg.ShowDialog = DialogResult.OK Then
fileName = dlg.FileName.SubString(dlg.FileName.LastIndexOf("\")+1)
If ftp1.Upload(dlg.FileName,"\合同资料\" & fileName)
= True Then
Messagebox.show(dlg.FileName)
Messagebox.show("\合同资料\" & fileName)
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show(dlg.FileName)
Messagebox.show("\合同资料\" & fileName)
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Return Nothing
End If
End If
[此贴子已经被作者于2017/1/18 10:49:15编辑过]