- Foxtable(狐表) (http://www.foxtable.com/bbs/index.asp)
-- 专家坐堂 (http://www.foxtable.com/bbs/list.asp?boardid=2)
---- 复制指定文件到指定文件夹内 (http://www.foxtable.com/bbs/dispbbs.asp?boardid=2&id=110079)
-- 发布时间：2017/11/25 23:17:00
-- 复制指定文件到指定文件夹内
可以设计一个按钮复制文件夹到另外一个文件夹吗？
比如 点击按 然后复制 ProjectPath & "学习存档\\" & 笔记范本（文档名称）到 表A的文件路径列吗，然后在重命名笔记范本 为Date.Now, "yyyyMMddHHmmss" （时间）+表A 名称列+文字“新笔记”
比如 点击按钮，复制在ProjectPath & "学习存档的笔记范本到表A的文件路径，如果表A 名称列是 弧表学习，重命名 就是 20171125231440弧表学习新笔记（时间+列内容+新笔记）
感谢 感谢
-- 发布时间：2017/11/26 12:41:00
--
参考代码
http://www.foxtable.com/webhelp/scr/0343.htm
-- 发布时间：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
-- 发布时间：2017/11/27 12:57:00
--
FileSys.CopyDirectory ("C:\\TestFiles", Tables("项目档案").Current("项目档案_文件路径") , True)
-- 发布时间：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
-- 发布时间：2017/11/30 23:17:00
--
FileSys.CopyDirectory ("C:\\TestFiles", Tables("计划表窗口_Table5").Current("项目档案_文件路径"), True)
-- 发布时间：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
-- 发布时间：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
-- 发布时间：2017/12/1 16:51:00
--
感谢，都不知道怎么谢谢你，感谢，
-- 发布时间：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