【書式】
FileSystemObject.GetFile(filespec)
指定したファイルを表すFileオブジェクトを返します。
引数filespecにはファイル名を含むパスを指定します。
Sub test17()
Dim FSO As Object, FileObject As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''C:\Book1.xlsxのサイズを返します
Set FileObject = FSO.GetFile("C:\Book1.xlsx")
MsgBox FileObject.Size
Set FileObject = Nothing
Set FSO = Nothing
End Sub