dosya boyutu 1 mb ğstğne çıkarsa uyarı verne makrosu

[esad45]

dosya boyutu 1 mb üstüne çıkarsa uyarı verme makrosunu nasıl yapabilirim açılınca veya kapanırken böyle bir uyarı verebilir mi

 

[ynmcan]

dosya boyutu 1 mb üstüne çıkarsa uyarı verme makrosunu nasıl yapabilirim açılınca veya kapanırken böyle bir uyarı verebilir mi

Aşağıdaki kodu deneyin.

Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set f = fs.GetFolder(ThisWorkbook.Path)
    s = "Şu Anki Dosya Boyutunuz  " & "( " & f.Size / 1048576 & " )" & " mb." & "  Dosya boyutunuz 1 mb. Geçmiştir!"
 If f.Size > 1048576 Then MsgBox s