Windows 使用ShowFolderDetails拒绝访问文档

我有一个HTA，我需要它列出文件、视频、下载等的文件夹大小

我有这个VBS部分，它可以在任何文件夹上工作，除了那些我被拒绝访问的文档，我正在尝试在Windows7上工作

dim FSO, objFolder,datafolder, foldername

foldername = strHomeFolder+"\Documents" 
msgBox(foldername)
Set fso= CreateObject("Scripting.FileSystemObject")

If fso.FolderExists(foldername ) Then   
Set objFolder= FSO.GetFolder(foldername )  'getting folder size objFolder.Size\par
ShowFolderDetails objFolder

Sub ShowFolderDetails(oF)
datafolder  = oF.Size
End sub

docSize = datafolder
End If
msgBox(docSize)
docSize = docSize / 1024
docSize = docSize / 1024
docSize = docSize / 1024
docSize = Round(docSize,1)

---

为什么拒绝此返回访问？这是一个本地文件夹，用户帐户是管理员，我甚至尝试以管理员身份运行HTA，但仍然无效。

您是否在提升模式下运行

mshta.exe

？如果不是这样的话，这将是一个问题，UAC是一个真正的痛苦，即使当试图运行作为一个管理员的东西。我不确定是诚实的，就像我说的，这是在一个HTA，我希望只是运行HTA正常你有试过吗？