IFile.Size Property

[José Roca]

The following code illustrates the use of the Size property.

Code Select Expand


#INCLUDE "windows.inc"
#INCLUDE "scrrun.inc"

DIM fso AS IFileSystem
DIM pFile AS IFile
DIM vSize AS VARIANT

' Create an instance of the FileSystemObject
fso = NEWCOM "Scripting.FileSystemObject"
' Get a reference to the IFile interface
pFile = fso.GetFile(UCODE$("C:\MyPath\MyFile.txt"))
' Get and display the size
vSize = pFile.Size
MSGBOX "File size: " & STR$(VARIANT#(vSize)) & " bytes"