此主题相关图片如下:捕获.jpg
下面是窗口beforeclose的代码 上面的错误显示是这个部分的 data属性错误
Dim d As String = Tables("商品").Current("bh1")
FileSys.CopyDirectory("D:\as", "D:\上盘\publicbox\222\原图\" & d & "\" )FileSys.CopyDirectory("D:\shuiyin", "D:\上盘\publicbox\222\shuiyin\" & d & "\" )FileSys.CopyDirectory("D:\taobao", "D:\上盘\publicbox\222\淘宝" & d & "\" )
请问该怎么修改?