Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制指定文件到指定文件夹内


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

主题：复制指定文件到指定文件夹内
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		复制指定文件到指定文件夹内  发帖心情 Post By：2017/11/25 23:17:00 [只看该作者]

可以设计一个按钮复制文件夹到另外一个文件夹吗？
比如 点击按  然后复制 ProjectPath & "学习存档\" & 笔记范本（文档名称）到 表A的文件路径列吗，然后在重命名笔记范本 为Date.Now, "yyyyMMddHHmmss" （时间）+表A 名称列+文字“新笔记” 

比如 点击按钮，复制在ProjectPath & "学习存档的笔记范本到表A的文件路径，如果表A 名称列是 弧表学习，重命名 就是 20171125231440弧表学习新笔记（时间+列内容+新笔记）
感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/26 12:41:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/11/27 12:12:00 [只看该作者]

能帮忙看看这个吗？可以把选择的文件复制到指定的列名的路径里吗？
感谢 感谢 
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "文档|*.doc;*.txt;*.xls;*.BMP;*.JPG;*.JPEG;*.PNG;*.GIF" '设置筛选器

If r IsNot Nothing Then
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        FileSys.CopyDirectory ("C:\TestFiles", "Tables("项目档案").Current("项目档案_文件路径") ", True)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/27 12:57:00 [只看该作者]

FileSys.CopyDirectory ("C:\TestFiles", Tables("项目档案").Current("项目档案_文件路径") , True)

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/11/30 21:36:00 [只看该作者]

感谢 感谢 能是选择复制吗？
感谢 感谢 
如果是点击后 筛选选择的，然后复制到 计划表窗口_Table5 的项目档案_文件路径 感谢 感谢 
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "文档|*.doc;*.txt;*.xls;*.BMP;*.JPG;*.JPEG;*.PNG;*.GIF" '设置筛选器
Dim r As Row = Tables("计划表窗口_Table5").Current
If r IsNot Nothing Then
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        FileSys.CopyDirectory ("C:\TestFiles", "Tables("计划表窗口_Table5").Current("项目档案_文件路径") ", True)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/11/30 23:17:00 [只看该作者]

FileSys.CopyDirectory ("C:\TestFiles",  Tables("计划表窗口_Table5").Current("项目档案_文件路径"), True)

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/12/1 15:31:00 [只看该作者]

如果是把多个选择的复制到路径里面怎么改呀，感谢 感谢 
比如打开了筛选，然后圈选或者单独选择，然后确定就不选择的文件复制到指定的路径，感谢 感谢
Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
dlg.Filter= "文档|*.doc;*.txt;*.xls;*.BMP;*.JPG;*.JPEG;*.PNG;*.GIF" '设置筛选器
Dim r As Row = Tables("计划表窗口_Table5").Current
If r IsNot Nothing Then
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        FileSys.CopyDirectory ("C:\TestFiles", "Tables("项目档案").Current("项目档案_文件路径") ", True)
    End If
End If
 回到顶部
帅哥哟，离线，有人找我吗？
有点甜
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：版主 帖子：85326 积分：427815 威望：0 精华：5 注册：2012/10/18 22:13:00 		  发帖心情 Post By：2017/12/1 16:24:00 [只看该作者]

Dim r As Row = Tables("计划表窗口_Table5").Current
If r IsNot Nothing Then
    Dim dlg As New OpenFileDialog '定义一个新的OpenFileDialog
    dlg.Filter= "文档|*.doc;*.txt;*.xls;*.BMP;*.JPG;*.JPEG;*.PNG;*.GIF" '设置筛选器
    dlg.MultiSelect = True
    If dlg.ShowDialog = DialogResult.Ok Then '如果用户单击了确定按钮
        For Each f As String In dlg.FileNames
            FileSys.CopyFile (f, Tables("项目档案").Current("项目档案_文件路径") & "\" & FileSys.GetName(f), True)
        Next
    End If
End If

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/12/1 16:51:00 [只看该作者]

感谢，都不知道怎么谢谢你，感谢，

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2017/12/1 16:58:00 [只看该作者]

Dim file As String = Tables("财务汇总窗口_Table22").Current("项目档案_文件路径")
If file <> "" Then
    Dim Proc As New Process '定义一个新的Process
    Proc.File = FileSys.GetParentPath(file)
    Proc.Start()
End If

能帮帮看看这个吗？就是打开路径后只能显示到上一个文件夹的路径，不是列表的文件路径，比如图表打开后只显示到弧表，没有打开代码那个文件夹，感谢 感谢 

图片点击可在新窗口打开查看此主题相关图片如下：360截图-13177250.jpg
图片点击可在新窗口打开查看
 回到顶部
总数 11 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.05078 秒, 4 次数据查询