请教老师,下面代码,批量勾选下载,第一个文件可以下载,第二个文件开始就报错(有同名......)不能下载,路径哪里写错了,请老师指导指导
Dim drs = DataTables("证件下载_Table1").Select("下载选择 = true")
If drs.Count = 0 Then
Messagebox.Show("尚未勾选需要下载的目标文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
Dim dlg As New FolderBrowserDialog
If dlg.ShowDialog = DialogResult.Ok Then
Dim path As String = dlg.SelectedPath & "\"
Dim ftp1 As New FtpClient
ftp1.Host = 120.......
ftp1.Account =
ftp1.Password =
ftp1.RootDir = RootDir1
For Each dr As DataRow In DataTables("证件下载_Table1").Select("[下载选择] = True")
If dr.IsNull("上传证件_Jpg文件") = True AndAlso dr.IsNull("上传证件_Word文件") = True Then
Messagebox.Show(dr("员工姓名") & dr("证件名称") & " 无可下载文件!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
Else
If dr("上传证件_Jpg文件") IsNot Nothing And dr("上传证件_Word文件") = "" Then
Path = Path & "\" & dr("员工姓名") & "\" & dr("上传证件_Jpg文件")
ftp1.Download(dr("上传证件_Jpg文件"), Path, True)
End If
Messagebox.show("文件下载成功!" & vbcrlf & "证件名称: " & dr("证件名称") & " " & dr("员工姓名"),"提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
End If
Next
ftp1.Close
End If
End If
已经解决,加个STRING 作为PATH
[此贴子已经被作者于2018/10/27 11:07:59编辑过]