说明：我用下面的关键参数，用手机上传文件或图片方法，在手机上可以向远程主机正常上传
但用下面的方法，在桌面应用上传文件一直失败。
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "文本文件|*.docx;*.xlsx;*.xls;*.doc;*.pptx;*.ppt;*.pdf;*.txt" 'dlg.Filter= "文本文件|*.bmp;*.jpg;*.gif;*.png" '设置筛选器
If dlg.ShowDialog = DialogResult.Ok Then
MessageBox.Show("你选择的是:" & dlg.FileName,"提示")
End If
Dim ftp1 As New FtpClient
ftp1.deleteEnabled=False
ftp1.renameEnabled=False
ftp1.Host="120.78.*.*"
ftp1.Port="1**44"
ftp1.Account = "f*xftp"
ftp1.Password = "****"
Dim name As String =dlg.FileName.SubString(dlg.FileName.LastIndexOf("\")+1)
If ftp1.Upload(dlg.FileName , "\jyapp\" & name)= True Then
Messagebox.show("上传完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Messagebox.show("上传失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Dim r1 As String= "ftp://f*xftp:J***@120.78.*.*\jyapp\" & name
Messagebox.show("当前字符串:" & r1)
请教大师：我用的阿里云主机，用手机上传图片或文件方法，能正常上传文件或图片，但用上面的方法失败。
请指点。
加好友 
发短信
Post By：2019/6/22 22:22:00 [只看该作者]
