定位到代码为:
Set oFILE = oFSO.OpenTextFile(strPathToSaveCSV,ForAppending,True,TristateFalse)
查看结果的解决方案如下:
1. 找到该项目的目录
2. 选中目录,右击-->属性
3. 查看 安全 选项卡
4. 如果没有安全选项卡,则在 工具-->文件夹选项-->查看
使用简单文件共享打钩去掉。就可以看到安全选项卡了
5.在安全选项卡中加入 everyone
基本上就可以解决问题了
Set oFILE = oFSO.OpenTextFile(strPathToSaveCSV,ForAppending,True,TristateFalse)