本帖最后由 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
这个代码之前还可以运行，今天突然就提示没有权限了 | 
发表于 2024-1-19 11:18
| 
