You can use the FileLen function. E.g.,
Debug.Print FileLen("H:\book1.xls")

Signature
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting, LLC
www.cpearson.com
> B*gger :(
>
[quoted text clipped - 6 lines]
>
> as seen in the folders?
Daminc - 22 Feb 2006 14:47 GMT
Thanks Chip,
this works:
Code:
--------------------
Sub version()
Dim wrkbk As Variant
Dim User As Variant
Dim Vers As Variant
Dim actwrkbk As Variant
Dim sizeoffile As Long
wrkbk = Application.ActiveWorkbook.Name
User = Application.UserName
Vers = Application.version
actwrkbk = ActiveWorkbook.FullName
sizeoffile = FileLen(actwrkbk)
MsgBox _
"Size of File: " & sizeoffile & " bytes" & Chr(13) & _
Chr(13) & _
"Name of workbook: " & wrkbk & Chr(13) & _
"Name of User: " & User & Chr(13) & _
"Version of VBA: " & Vers
End Sub
--------------------

Signature
Daminc