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


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

主题：附件批量导出
帅哥哟，离线，有人找我吗？
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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：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


加好友 发短信
等级：超级版主 帖子：110592 积分：562856 威望：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
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05298 秒, 4 次数据查询