使用ShowFolderDetails for Documents

Question

我有一个HTA，我需要它来列出文件夹大小，例如文档，视频，下载等等。

我有这个VBS部分适用于任何文件夹，除了文件，我得到访问被拒绝，我试图让这个工作在Windows 7

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仍无济于事。