以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  FTP下载问题  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=126721)

--  作者:douglas738888
--  发布时间:2018/10/27 11:04:00
--  FTP下载问题

请教老师,下面代码,批量勾选下载,第一个文件可以下载,第二个文件开始就报错(有同名......)不能下载,路径哪里写错了,请老师指导指导

 


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编辑过]