win7 32运行VBA错误　[金字塔]

 FileName="D:\"&Date&" Test.Log"
 Set fs = CreateObject("Scripting.FileSystemObject")
 Set a =fs.OpenTextFile(FileName,8,true)

 a.WriteLine(now &logMsg)
 a.close

这样的代码在win7 32位操作系统下 运行到第三行时，产生如下错误

此主题相关图片如下：qq图片20131202104651.jpg

此主题相关图片如下：qq图片20131202104642.jpg

金字塔可以运行 的，需要什么权限

如果代码在XP上可以运行，WIN7不行说明是操作系统权限的问题了。

建议你关掉WIN7的UAC后再试试。