Foxtable(狐表) → 用户栏目 → 专家坐堂 → 根据路径复制文件夹内容


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

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


加好友 发短信
等级：九尾狐 帖子：2732 积分：18220 威望：0 精华：0 注册：2013/4/9 10:41:00 		根据路径复制文件夹内容  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2732 积分：18220 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2025/4/24 9:30:00 [显示全部帖子]

蓝老师 提示的这个 这个是路径不对吗：
给定的文件路径以目录分隔符字符结尾。
参数名: sourceFileName
需要复制路径里面的文件
I:\CPD08000001\CPFB25000001\
这是被复制的路径
I:\XMDD10000001\
这是需要复制到里面的路径
感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2732 积分：18220 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2025/4/24 11:29:00 [显示全部帖子]

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

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

.NET Framework 版本：4.0.30319.42000
Foxtable 版本：2025.1.3.1
错误所在事件：窗口,产品管理窗口,Button05,Click
详细错误信息：
给定的文件路径以目录分隔符字符结尾。
参数名: sourceFileName
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2732 积分：18220 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：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
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2732 积分：18220 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2025/4/24 12:57:00 [显示全部帖子]

谢谢蓝老师 
用什么方法可以把这个路径里面的所有文件复制到对应的文件夹里面吗？
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2732 积分：18220 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2025/4/24 16:34:00 [显示全部帖子]

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

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


加好友 发短信
等级：九尾狐 帖子：2732 积分：18220 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2025/4/26 1:00:00 [显示全部帖子]

蓝老师  再麻烦您帮忙一下 
可以帮忙看看 这个代码如何改成每增加新的一行就对新的一行执行一下红色代码吗？
现在就是拷贝的文件不是Table2和Table4对应的行，拷贝的都是Table2同一行里面文件，
有没办法在Table4增加一行时，就拷贝Table2的对应行路径列的文件。 感谢 感谢

Dim t As Table = Tables("产品管理窗口_Table2")
'For i As Integer = t.TopPosition To t.BottomPosition '选择的行
For i As Integer = 0 To t.Rows.Count - 1
    Dim dra As Row = Tables("产品管理窗口_Table4").addnew
    dra("序号管理_项目序号") = e.form.controls("Label04").text
    dra("序号管理_订产序号") = e.form.controls("Label01").text
    
    dra("序号管理_产档序号") = t.Rows(i)("序号管理_产品序号")

    
    '这里加一个拷贝文件夹的文件
    For Each File As String In FileSys.GetFiles( Tables("产品管理窗口_Table2").Current("产信图文_零件路径"))
        Dim name As String = FileSys.GetName(file)
        FileSys.CopyFile( file, Tables("产品管理窗口_Table4").Current("订零信息_文档路径") & name)
    Next
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.07129 秒, 5 次数据查询