'// Value of PI
Const PI = 3.14159265

'// Return size of file, folder, or drive
Function sizeof(F)
On Error Resume Next
    Dim FSO
    Set FSO = CreateObject("Scripting.FileSystemObject")
    If FSO.FileExists(F) Then
        sizeof = FSO.GetFile(F).Size
    ElseIf FSO.FolderExists(F) Then
        sizeof = FSO.GetFolder(F).Size
    ElseIf FSO.Drive(F) Then
        sizeof = FSO.GetDrive(F).TotalSize
    End If
End Function

