以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制行的图片到指定文件夹  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=127898)
--  作者：yangwenghd
--  发布时间：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
--  作者：yangwenghd
--  发布时间：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 ) 
--  作者：yangwenghd
--  发布时间：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_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
--  发布时间：2018/11/24 16:57:00
--  
感谢老师 ，我看了一下文件的路径，你帮在帮我看看路径吗？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:图片复制学习.rar
--  作者：有点蓝
--  发布时间：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