本帖最后由 winsfly 于 2024-3-5 19:54 编辑
- Set objFolderItem = objFolder.Self
- objPath = objFolderItem.Path
- s = MsgBox("使用财神地图请点击确定,不使用财神地图点击取消", vbOKCancel)
- If s = 1 Then set a=createobject("scripting.filesystemobject"):a.copyfolder "*.*",objPath
复制代码 这个代码之前还可以运行,今天突然就提示没有权限了 |