Foxtable(狐表) → 用户栏目 → 专家坐堂 → 复制行的图片到指定文件夹


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

主题：复制行的图片到指定文件夹
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		复制行的图片到指定文件夹  发帖心情 Post By：2018/11/24 14:56:00 [只看该作者]

 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片复制学习.table

麻烦请教一下老师，如果点击按钮，把上面表 图A和图片B列选择的行的图片复制到下面表选择行的路径内，然后用这个路径用备用图和现用图两个文件夹来装图片A和图片B的图片可以吗？感谢 感谢 麻烦老师了
其实就是点击按钮，复制选择的行的图片A和图片B列的图片到表B的路径列，然后用两个不同的文件夹来分别装图片A和图片B的图片，感谢 感谢 

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20181124145312.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/24 15:14:00 [只看该作者]


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


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/11/24 15:42:00 [只看该作者]

FileSys.CopyFile( Tables("窗口1_Table1").Current("图片A"), Tables("窗口1_Table2").Current("指定路径")) 
老师 能帮忙看看是那里不对呀，感谢 感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/24 15:51:00 [只看该作者]

dim file as string = Tables("窗口1_Table1").Current("图片A")
dim name as string = FileSys.GetName(file )
FileSys.CopyFile( file, Tables("窗口1_Table2").Current("指定路径") & name ) 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/11/24 16:14:00 [只看该作者]

感谢老师 
我检查了路径，没有和路径不对的格式，能在帮忙看看是那里的问题啊 
.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
路径中具有非法字符。

我能在整个列的路径在添加一个指定的文件夹路径吗？感谢感谢 
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/24 16:25:00 [只看该作者]

dim file as string = Tables("窗口1_Table1").Current("图片A")
dim name as string = FileSys.GetName(file )

msgbox(Tables("窗口1_Table1").Current("图片A")) ‘是否存在此路径的文件
msgbox(Tables("窗口1_Table2").Current("指定路径") & name)  ‘是否存在此路径？

dim d as string = "指定的文件夹"
If FileSys.DirectoryExists(Tables("窗口1_Table2").Current("指定路径") & d) = false Then 
    FileSys.CreateDirectory(Tables("窗口1_Table2").Current("指定路径") & d)
End If
msgbox( Tables("窗口1_Table2").Current("指定路径") & d &"\" & name)  ‘是否存在此路径？
FileSys.CopyFile( file, Tables("窗口1_Table2").Current("指定路径") & d &"\" & name ) 
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2707 积分：18056 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2018/11/24 16:57:00 [只看该作者]

感谢老师 ，我看了一下文件的路径，你帮在帮我看看路径吗？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片复制学习.rar
 回到顶部
帅哥哟，离线，有人找我吗？
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110647 积分：563143 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/24 17:23:00 [只看该作者]

For Each file As String In Tables("窗口1_Table1").Current.DataRow.Lines("图片A")
    Dim name As String = FileSys.GetName(file )
    Dim d As String = "指定的文件夹"
    If FileSys.DirectoryExists(Tables("窗口1_Table2").Current("指定路径") & d) = False Then
        FileSys.CreateDirectory(Tables("窗口1_Table2").Current("指定路径") & d)
    End If
    FileSys.CopyFile( file, Tables("窗口1_Table2").Current("指定路径") & d &"\" & name )
Next
 回到顶部
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.04688 秒, 6 次数据查询