- 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=196408)
-- 发布时间：2025/4/23 21:19:00
-- 根据路径复制文件夹内容
老师们 可以帮忙看看这个 我想把一个路径文件夹里面的文件 复制到另外一个路径文件夹里面，但是显示错误 可以帮忙看看吗？
感谢
For Each file As String In Tables("产品管理窗口_Table2").Current.DataRow.Lines("产信图文_路径")
Dim name As String = FileSys.GetName(file)
\' Dim d As String = "指定的文件夹"
If FileSys.DirectoryExists(Tables("产品管理窗口_Table4").Current("订零信息_文档路径")) = False Then
FileSys.CreateDirectory(Tables("产品管理窗口_Table4").Current("订零信息_文档路径"))
End If
FileSys.CopyFile( file, Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & "\\" & name)
Next
-- 发布时间：2025/4/24 8:46:00
--
提示什么错误？
-- 发布时间：2025/4/24 9:30:00
--
蓝老师 提示的这个 这个是路径不对吗：
给定的文件路径以目录分隔符字符结尾。
参数名: sourceFileName
需要复制路径里面的文件
I:\\CPD08000001\\CPFB25000001\\
这是被复制的路径
I:\\XMDD10000001\\
这是需要复制到里面的路径
感谢 感谢
-- 发布时间：2025/4/24 9:45:00
--
调试
msgbox(file)
msgbox(Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & "\\" & name)
FileSys.CopyFile( file, Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & "\\" & name)
-- 发布时间：2025/4/24 11:29:00
--
蓝老师 我检测了弹窗对话框的路径 都没有问题的 只是还是会弹出这个错误
就是在最后执行复制的时候 好像出了问题 您可以再帮忙看看吗 感谢 感谢
.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2025.1.3.1
错误所在事件：窗口,产品管理窗口,Button05,Click
详细错误信息：
给定的文件路径以目录分隔符字符结尾。
参数名: sourceFileName
-- 发布时间：2025/4/24 11:34:00
--
肯定有问题。弹出什么内容？截图看看
-- 发布时间：2025/4/24 11:53:00
--
此主题相关图片如下：微信图片_20250424115202.png
此主题相关图片如下：微信图片_20250424115155.png
弹出来是这个窗口 感谢 感谢
此主题相关图片如下：微信图片_20250424115032.png
这是代码
前面两个路径窗口是这样的
我检查了路径 没有问题呢 里面也有文件，就是不能复制里面的文件到另外一个路径
For Each file As String In Tables("产品管理窗口_Table2").Current.DataRow.Lines("产信图文_零件路径")
Dim name As String = FileSys.GetName(file)
\' Dim d As String = "指定的文件夹"
\' If FileSys.DirectoryExists(Tables("产品管理窗口_Table4").Current("订零信息_文档路径")) = False Then
\' FileSys.CreateDirectory(Tables("产品管理窗口_Table4").Current("订零信息_文档路径"))
\' End If
\' FileSys.CopyFile( file, Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & name)
msgbox(file)
msgbox(Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & name)
FileSys.CopyFile( file, Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & name)
Next
-- 发布时间：2025/4/24 11:57:00
--
CopyFile是用来复制单个文件的，file变量里必须是完整的路径+文件名称，前面截图明显只有目录，没有文件名
-- 发布时间：2025/4/24 12:57:00
--
谢谢蓝老师
用什么方法可以把这个路径里面的所有文件复制到对应的文件夹里面吗？
-- 发布时间：2025/4/24 13:28:00
--
http://www.foxtable.com/webhelp/topics/0341.htm