Option Explicit
 
Dim lSize As Long
 
Private Sub XPButton1_Click()
    lSize = FileSize(App.Path + "\Form1.frm")
    MsgBox "FileSize: " + CStr(lSize) + " Bytes", vbInformation
End Sub
 
Public Function FileSize(ByVal Herkunft As String) As Long
    Dim lGroesse As Long
 
    On Local Error Resume Next
    lGroesse = FileLen(Herkunft)
    FileSize = IIf(Err = 0, lGroesse, -1)
    On Local Error GoTo 0
End Function

Global glngFileSize as Long

Option Explicit

Gru? Michi aus Hannover

1 + 1 = 3 f?r hinreichend gro?e 1