Alert als file te groot is

[eeyk]

ja ik vraag veel maar ik ben bezig met iets wat nieuw voor me is


hoe kan ik een msg bericht toevoegen als bestand te groot is

ik dacht aan

Private Sub Form_Load()
dim filegroot
filegroot = open app.path & "\history.txt" for input as #1
if filegroot = 15000 then
msgbox "Ga naar  VND opties om history te legen de grootte van het bestand is nu meer dan 15mb", vbok, "ALERT!.."
else
end if
end sub

 

[CoD_NL]

dim iGrootte as integer
iGrootte = filelen("c:\testbestand.rar")/1024/1024 'aantal MB's

if iGrootte > 15 then msgbox "Bestand te groot!"

 

[eeyk]

dat


1024 / 1024

is dat in kb's?

dus 15mb is 15360kb?


dus

if iGrootte = 15360 then

of is igroote in mb's

 

[CoD_NL]

dat


1024 / 1024

is dat in kb's?

dus 15mb is 15360kb?


dus

if iGrootte = 15360 then

of is igroote in mb's

De functie filelen geeft de grootte in bytes.

http://nl.wikipedia.org/wiki/Byte

edit: als je wilt kijken of een bestand te groot is dan zou ik niet alleen controleren op de exacte grootte. Ik zou dan gewoon de 'groter dan of gelijk aan' operator gebruiken.

 

[eeyk]

mij programa die slaat alles op wat je doet in text document

maar als het bestand te groot wodt word het programa ook sloomer en de gebruiker pc ook