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


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

主题:复制图片到文件夹

帅哥哟,离线,有人找我吗?
yangwenghd
  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级:九尾狐 帖子:2707 积分:18056 威望:0 精华:0 注册:2013/4/9 10:41:00
复制图片到文件夹  发帖心情 Post By:2024/7/15 9:59:00 [只看该作者]

For Each file As String In Tables("代销转换窗口_Table1").Current.DataRow.Lines("商品信息_窗口图片")
    Dim name As String = FileSys.GetName(file)
    Dim d As String = "代销窗口图片"
    If FileSys.DirectoryExists(Tables("代销转换窗口_Table2").Current("编辑信息_文件路径") & d) = False Then
        FileSys.CreateDirectory(Tables("代销转换窗口_Table2").Current("编辑信息_文件路径") & d)
    End If
    FileSys.CopyFile( file, Tables("代销转换窗口_Table4").Current("编辑信息_文件路径") & d & "\" & name)
Next '复制窗口图片到指定文件夹

老师们 可以帮忙看看这个吗?  没有看到有sourceFileName这个参数名呢 感谢 感谢 
.NET Framework 版本:4.0.30319.42000
Foxtable 版本:2022.8.18.1
错误所在事件:窗口,代销转换窗口,Button16,Click
详细错误信息:
参数不能为 Nothing。
参数名: sourceFileName


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


加好友 发短信
等级:超级版主 帖子:110743 积分:563641 威望:0 精华:9 注册:2015/6/24 9:21:00
  发帖心情 Post By:2024/7/15 10:03:00 [只看该作者]

看看还是不是有空的名称
……
msgbox(file)
    FileSys.CopyFile( file, Tables("代销转换窗口_Table4").Current("编辑信息_文件路径") & d & "\" & name)
Next '复制窗口图片到指定文件夹

 回到顶部