Need to generate a msgbox telling how large the file is
This worked great! Thanks Mike! And thanks to all others that responded.
--
Robert
"Mike H" wrote:
Rob,
Not tested because I didn't have a workbook large enough but this should do
it.
Private Sub Workbook_Open()
Path = ThisWorkbook.FullName
If FileLen(Path) / 1024 / 1024 30 Then
MsgBox FileLen(Path) / 1024 / 1024 & " Megabytes"
End If
End Sub
Mike
"robs3131" wrote:
Hi all,
I would like to like have a msgbox come up during Workbook_Open only when
the size of the file being opened exceeds a certain size (ie - 30 MB). I'm
wondering what the best way is to this - I'm at a loss on how to even begin
the coding to look for the file size.
Thanks for your help!
--
Robert
|