Доступ запрещен с ShowFolderDetails для документов

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 в качестве администратора, но безрезультатно.