怎么获取一个文件的大小

[mect]

从硬盘里找个文件出来，怎么知道它的大小？

[lihonggen0]

Private Sub Command1_Click()
'工程--->引用--->Microsoft scripting runtime
Dim fsoTest As New FileSystemObject, file1 As File
Set file1 = fsoTest.GetFile("C:\testfile.txt")
MsgBox file1.Size
End Sub

[lihonggen0]

Private Sub Command1_Click()
'工程--->引用--->Microsoft scripting runtime
Dim fsoTest As New FileSystemObject, file1 As File
Set file1 = fsoTest.GetFile("C:\testfile.txt")
MsgBox file1.Size
End Sub