怎样得到一个文件的大小呢?


'-------------------------------------------------------------------------------Api文件打开对话框
Declare Function GetOpenFileName Lib "comdlg32.dll" Alias _
        "GetOpenFileNameA" (pOpenfilename As OPENFILENAME) As Long
 
Type OPENFILENAME
     lStructSize As Long
     hwndOwner As Long
     hInstance As Long
     lpstrFilter As String
     lpstrCustomFilter As String
     nMaxCustFilter As Long
     nFilterIndex As Long
     lpstrFile As String
     nMaxFile As Long
     lpstrFileTitle As String
     nMaxFileTitle As Long
     lpstrInitialDir As String
     lpstrTitle As String
     flags As Long
     nFileOffset As Integer
     nFileExtension As Integer
     lpstrDefExt As String
     lCustData As Long
     lpfnHook As Long
     lpTemplateName As String
End Type        Dim ofn As OPENFILENAME
        Dim Ftn As String
        Dim rtn  As Long
        With ofn
        .lStructSize = Len(ofn)
        .hwndOwner = Me.hWnd
        .hInstance = App.hInstance
        .lpstrFilter = "图片格式(*.jpeg;*.gif)" & Chr$(0) & "*.jpg;*.gif"
        .lpstrFile = Space(254)
        .nMaxFile = 255
        .lpstrFileTitle = Space(254)
        .nMaxFileTitle = 255
        .lpstrInitialDir = App.Path & "\Images\Mailface"
        .lpstrTitle = "打开一个图片"
        .flags = 6148 '表示单选一个文件
        End With
        rtn = GetOpenFileName(ofn)
        
        If rtn >= 1 Then        
         End If
本人使用以上语句，调用对话框，得到 ofn.lpstrFile  '路径,
但我想知ofn.lpstrFile的文件大小，怎样处理呢?