老师,这个代码有什么问题,一直上传不成功,提示:上传过程出现意外,上传不成功!但直接用内置管理器上传又没有问题。而且我把文件放到服务器,显示也正常。
e.cancel = True
Select Case e.Col.Name
Case "身份证扫描件"
Dim dlg As New openFileDialog '定义一个新的SaveFileDialog
dlg.MultiSelect = True
If dlg.showDialog = DialogResult.Ok Then '如果用户单击了确定按钮
Dim ftp1 As new ftpclient
ftp1.host="120.0.**.**"
ftp1.Account = "f*****"
ftp1.password = "1*****"
Dim r As Row = Tables("实名制管理").Current
Dim ls = r.DataRow.Lines("身份证扫描件")
For Each f As String In dlg.FileNames
Dim file = "/项目名称/" & r("姓名") & "/" & filesys.GetName(f)
If ftp1.DirExists("/项目名称/" & r("姓名")) = False Then
ftp1.MakeDir("/项目名称/" & r("姓名"))
End If
Dim Result As DialogResult
If ftp1.FileExists(file) Then
Result = MessageBox.Show("文件已经存在,是否覆盖?", "提示", MessageBoxButtons.YesNo, MessageBoxIcon.Question)
End If
If result = Nothing OrElse result = DialogResult.Yes Then
If ftp1.Upload(f,file,True) = True Then
If ls.contains(file) = False Then
ls.add(file)
End If
Else
MessageBox.Show( f & "上传失败" ,"提示" ,MessageBoxButtons.OK,MessageBoxIcon.Question)
End If
End If
Next
r.DataRow.lines("身份证扫描件") = ls
ftp1.Close
End If
End Select
[此贴子已经被作者于2019/3/21 10:05:16编辑过]