[问题求助] [已解决]运行vbs的时候提示没有权限(win7)

winsfly

Set objFolderItem = objFolder.Self 
objPath = objFolderItem.Path 
s = MsgBox("使用财神地图请点击确定，不使用财神地图点击取消", vbOKCancel)
If s = 1 Then set a=createobject("scripting.filesystemobject"):a.copyfolder "*.*",objPath
复制代码

这个代码之前还可以运行，今天突然就提示没有权限了

jyswjjgdwtdtj

哪行报错？是不是objpath是什么系统文档？