Foxtable(狐表)用户栏目专家坐堂 → 附件批量导出


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

主题:附件批量导出

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


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
附件批量导出  发帖心情 Post By:2019/10/10 11:16:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
nxhylczh
  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:小狐 帖子:335 积分:2674 威望:0 精华:0 注册:2018/11/22 9:19:00
  发帖心情 Post By:2019/10/10 11:19:00 [只看该作者]

for each dr as row in tbl.rows            '循环行  
     Dim lst As List(Of String) =  dr.Lines("文件管理")  '获取文件集合
     循环 Lst
         用FileSys.CopyFile() 复制到批定的目录


[此贴子已经被作者于2019/10/10 11:21:19编辑过]

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2019/10/10 21:11:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/11 8:57:00 [只看该作者]

Dim dlg As New FolderBrowserDialog
Dim f As String = Tables("表A").Cols("文件管理").DataCol.DefaultFolder
If f Is Nothing Then
    f = ProjectPath & "Attachments\"
Else
    f = f & "\"
End If
If dlg.ShowDialog = DialogResult.Ok Then
    msgbox(dlg.SelectedPath )
    For Each r As Row In Tables("表A").rows
        Dim file = f & r("文件管理")
        If FileSys.FileExists(file) Then
            FileSys.CopyFile(file,dlg.SelectedPath & r("文件管理"),True)
        Else
            msgbox("文件不存在:" & file)
        End If
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2019/10/11 9:24:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/11 9:44:00 [只看该作者]

Dim dlg As New FolderBrowserDialog
Dim f As String = ProjectPath & "RemoteFiles"
If dlg.ShowDialog = DialogResult.Ok Then
    msgbox(dlg.SelectedPath )
    Dim ftp As FTPClient = Tables("产品资料库_资料信息").Cols("文件管理").DataCol.FTPClient
    For Each r As Row In Tables("产品资料库_资料信息").rows
        Dim file = f & r("文件管理").replace("/","\")
        If FileSys.FileExists(file) Then
            msgbox(dlg.SelectedPath & FileSys.GetName(r("文件管理")))
            FileSys.CopyFile(file,dlg.SelectedPath & FileSys.GetName(r("文件管理")),True)
        Else
            If ftp.Download(r("文件管理"),dlg.SelectedPath & FileSys.GetName(r("文件管理")))
                Messagebox.show("下载完成!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            Else
                Messagebox.show("下载失败!","提示",MessageBoxButtons.OK,MessageBoxIcon.Information)
            End If
        End If
    Next
End If

 回到顶部
帅哥哟,离线,有人找我吗?
nuoyan88
  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2159 积分:14971 威望:0 精华:0 注册:2017/10/12 13:00:00
  发帖心情 Post By:2019/10/11 13:49:00 [只看该作者]

用户已被锁定

 回到顶部
帅哥哟,离线,有人找我吗?
有点蓝
  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:超级版主 帖子:105495 积分:536466 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2019/10/11 14:10:00 [只看该作者]

你连什么是ftp都还不懂,5楼的用法明显是共享文件,被你忽悠了。

Dim dlg As New FolderBrowserDialog
Dim f As String = Tables("产品资料库_资料信息").Cols("文件管理").DataCol.DefaultFolder
If f Is Nothing Then
    f = "\\192.168.1.10\d\生产数据\信息管理系统\管理文件\"
Else
    f = f & "\"
End If
msgbox(f)
If dlg.ShowDialog = DialogResult.Ok Then
    msgbox(dlg.SelectedPath )
    For Each r As Row In Tables("产品资料库_资料信息").rows
        Dim file = f & r("文件管理").replace("/","\")
        If FileSys.FileExists(file) Then
            FileSys.CopyFile(file,dlg.SelectedPath & r("文件管理"),True)
        Else
            msgbox("文件不存在:" & file)
        End If
    Next
End If

 回到顶部