根据路径复制文件夹内容 - 专家坐堂 - Foxtable(狐表) - 新一代数据库软件，完美融合Access、Foxpro、Excel、vb.net之优势，人人都能掌握的快速软件开发工具!

老师们可以帮忙看看这个我想把一个路径文件夹里面的文件复制到另外一个路径文件夹里面，但是显示错误可以帮忙看看吗？

感谢

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)

蓝老师提示的这个这个是路径不对吗：

给定的文件路径以目录分隔符字符结尾。

参数名: sourceFileName

需要复制路径里面的文件

I:\CPD08000001\CPFB25000001\

这是被复制的路径

I:\XMDD10000001\

这是需要复制到里面的路径

感谢感谢

蓝老师我检测了弹窗对话框的路径都没有问题的只是还是会弹出这个错误

就是在最后执行复制的时候好像出了问题您可以再帮忙看看吗感谢感谢

.NET Framework 版本：4.0.30319.42000

Foxtable 版本：2025.1.3.1

错误所在事件：窗口,产品管理窗口,Button05,Click

详细错误信息：

给定的文件路径以目录分隔符字符结尾。

参数名: sourceFileName

此主题相关图片如下：微信图片_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)

谢谢蓝老师

用什么方法可以把这个路径里面的所有文件复制到对应的文件夹里面吗？

谢谢蓝老师，一点就搞定感谢感谢

主题：根据路径复制文件夹内容