Foxtable(狐表)用户栏目专家坐堂 → FTP下载问题


  共有1707人关注过本帖树形打印复制链接

主题:FTP下载问题

帅哥哟,离线,有人找我吗?
douglas738888
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:五尾狐 帖子:1173 积分:8777 威望:0 精华:0 注册:2012/4/18 16:28:00
FTP下载问题  发帖心情 Post By:2018/10/27 11:04:00 [只看该作者]

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

 


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

 回到顶部