
Sub test17()
Dim FSO As Object, FileObject As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
''C:\Book1.xlsのサイズを返します
Set FileObject = FSO.GetFile("C:\Book1.xls")
MsgBox FileObject.Size
Set FileObject = Nothing
Set FSO = Nothing
End Sub