以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  复制图片到文件夹  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=192702)

--  作者:yangwenghd
--  发布时间: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


--  作者:有点蓝
--  发布时间:2024/7/15 10:03:00
--  
看看还是不是有空的名称
……
msgbox(file)
    FileSys.CopyFile( file, Tables("代销转换窗口_Table4").Current("编辑信息_文件路径") & d & "\\" & name)
Next \'复制窗口图片到指定文件夹