Rss & SiteMap

Foxtable(狐表) http://www.foxtable.com

新一代数据库软件,完美融合Access、Foxpro、Excel、vb.net之优势,人人都能掌握的快速软件开发工具!
共11 条记录, 每页显示 10 条, 页签: [1] [2]
[浏览完整版]

标题:根据路径复制文件夹内容

1楼
yangwenghd 发表于: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
2楼
有点蓝 发表于:2025/4/24 8:46:00
提示什么错误?
3楼
yangwenghd 发表于:2025/4/24 9:30:00
蓝老师 提示的这个 这个是路径不对吗:
给定的文件路径以目录分隔符字符结尾。
参数名: sourceFileName
需要复制路径里面的文件
I:\CPD08000001\CPFB25000001\
这是被复制的路径
I:\XMDD10000001\
这是需要复制到里面的路径
感谢 感谢 
4楼
有点蓝 发表于:2025/4/24 9:45:00
调试
msgbox(file)
msgbox(Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & "\" & name)
FileSys.CopyFile( file, Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & "\" & name)
5楼
yangwenghd 发表于:2025/4/24 11:29:00
蓝老师 我检测了弹窗对话框的路径 都没有问题的 只是还是会弹出这个错误

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

.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2025.1.3.1
错误所在事件:窗口,产品管理窗口,Button05,Click
详细错误信息:
给定的文件路径以目录分隔符字符结尾。
参数名: sourceFileName

6楼
有点蓝 发表于:2025/4/24 11:34:00
肯定有问题。弹出什么内容?截图看看
7楼
yangwenghd 发表于: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
8楼
有点蓝 发表于:2025/4/24 11:57:00
CopyFile是用来复制单个文件的,file变量里必须是完整的路径+文件名称,前面截图明显只有目录,没有文件名
9楼
yangwenghd 发表于:2025/4/24 12:57:00
谢谢蓝老师 
用什么方法可以把这个路径里面的所有文件复制到对应的文件夹里面吗?
10楼
有点蓝 发表于:2025/4/24 13:28:00
http://www.foxtable.com/webhelp/topics/0341.htm
共11 条记录, 每页显示 10 条, 页签: [1] [2]

Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号

Powered By Dvbbs Version 8.3.0
Processed in .04688 s, 2 queries.