oFso = CreateObject("Scripting.FileSystemObject")
cFileName = "myfile.txt"
oFile = oFso.GetFile(cFileName)
? oFile.Size
cFolderName = "C:\myfolder\"
oFolder = oFso.GetFolder(cFolderName)
? ofolder.Size