- Foxtable(狐表) (http://foxtable.net/bbs/index.asp)
-- 专家坐堂 (http://foxtable.net/bbs/list.asp?boardid=2)
---- 复制行的图片到指定文件夹 (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=127898)
-- 发布时间：2018/11/24 14:56:00
-- 复制行的图片到指定文件夹
| 下载信息 [文件大小： 下载次数： ] | |
 点击浏览该文件:图片复制学习.table |
麻烦请教一下老师，如果点击按钮，把上面表 图A和图片B列选择的行的图片复制到下面表选择行的路径内，然后用这个路径用备用图和现用图两个文件夹来装图片A和图片B的图片可以吗？感谢 感谢 麻烦老师了
其实就是点击按钮，复制选择的行的图片A和图片B列的图片到表B的路径列，然后用两个不同的文件夹来分别装图片A和图片B的图片，感谢 感谢
此主题相关图片如下：qq截图20181124145312.jpg
-- 发布时间：2018/11/24 15:14:00
--
参考：http://www.foxtable.com/webhelp/scr/0342.htm
-- 发布时间：2018/11/24 15:42:00
--
FileSys.CopyFile( Tables("窗口1_Table1").Current("图片A"), Tables("窗口1_Table2").Current("指定路径"))
老师 能帮忙看看是那里不对呀，感谢 感谢
-- 发布时间：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 )
-- 发布时间：2018/11/24 16:14:00
--
感谢老师
我检查了路径，没有和路径不对的格式，能在帮忙看看是那里的问题啊
.NET Framework 版本：2.0.50727.8937
Foxtable 版本：2018.10.9.1
错误所在事件：窗口,窗口1,Button1,Click
详细错误信息：
路径中具有非法字符。
我能在整个列的路径在添加一个指定的文件夹路径吗？感谢感谢
-- 发布时间：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_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
End If
msgbox( Tables("窗口1_Table2").Current("指定路径") & d &"\\" & name) ‘是否存在此路径？
FileSys.CopyFile( file, Tables("窗口1_Table2").Current("指定路径") & d &"\\" & name )
-- 发布时间：2018/11/24 16:57:00
--
感谢老师 ，我看了一下文件的路径，你帮在帮我看看路径吗？
-- 发布时间：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