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


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

主题：复制行的图片到指定文件夹
帅哥，在线噢！
有点蓝
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2018/11/24 15:14:00 [显示全部帖子]


 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：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 ) 
 回到顶部
帅哥，在线噢！
有点蓝
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：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 ) 
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：107864 积分：548683 威望：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.05078 秒, 5 次数据查询