oFSO = CREATEOBJECT("Scripting.FileSystemObject") && OK >oFolder = oFSO.GetFolder("C:\System Volume Information") && OK >?oFolder.Size && Same errorThe code I used was:
Dim oFolder As Scripting.Folder Dim oFSO As Scripting.FileSystemObject Set oFSO = New Scripting.FileSystemObject Set oFolder = oFSO.GetFolder("C:\") MsgBox oFolder.Size