strPath="s:\"
Set objFSO=CreateObject("Scripting.FileSystemObject")
If objFSO.FolderExists(strPath) Then
    Set objFldr=objFSO.getfolder(strPath)
    iSize=objFldr.Size/1048576
    WScript.echo "The size of " & strPath & " is approximately " & _
 Int(iSize) & " MB"
Else
    WScript.Echo "Failed to find " & strPath
End If