Get folder size error 800A004C

Question

I am trying to make a script Counts the size of a folder.
I am getting a vbs error "Path not found" 800A004C on line 19 (Q = Q + F.size)
dim oFS, oFolder
set oFS = WScript.CreateObject("Scripting.FileSystemObject")
set oFolder = oFS.GetFolder("E:\NEW-backup\")
set qFS = WScript.CreateObject("Scripting.FileSystemObject")
set logFolder = qFS.GetFolder("E:\Backup Logs\")
ShowFolderDetails oFolder
sub ShowFolderDetails(oF)
dim F
dim Q
dim antalGB
dim attachment
dim subject
Q=0
for each F in oF.Subfolders
Q = Q + F.Size
Next
antalGB = "Dagens backup fylder: " + FormatNumber(((Q/1024)/1024)/1024, 2) + " GB" + "\n\nMvh\n"
If I run the script on E:\Backup instead of E:\NEW-backup I get no errors.
Please help I am a noob to scripting

Answer 1

If you can try in PowerShell - the below sample code may help you - THis returns folder size in MB
function Get-FolderSize
param ( [String]$Path )
$FileSystemObject = New-Object -com Scripting.FileSystemObject
$folders = (Get-Childitem $path | ? {$_.Attributes -eq "Directory"})
foreach ($folder in $folders)
$folder | Add-Member -MemberType NoteProperty -Name "SizeMB" –Value(($FileSystemObject.GetFolder($folder.FullName).Size) / 1MB)
$folders | sort -Property SizeMB -Descending | select fullname,@{n=’Size MB’;e={"{0:N2}" –f $_.SizeMB}}
Get-FolderSize -Path C:\Temp\
You may get some insight / help for your code as well!
Regards Chen V [MCTS SharePoint 2010]