Byte omrekenen naar MB

[Gerton64]

wil bytes omrekenen in een excel bestand naar MB,s
van uit een script zie ik hoeveel bytes een bepaalde directory heeft, maar wil dat graag zien in MB's

Als ik in windows kijk op een map =>eigenschap zie ik staan "Grootte: 492MB (516.602.653bytes)"


Vraag:
Plaats ik 516.602.653 in excel deel ik hem door 1024 krijg ik 504497.708 KB, deel ik dit getal door 1000 krijg ik 504.497708 MB (MB is toch 1000 deel ervan) maar in windows eigenschap staat 492MB ????

Plaats ik 516.602.653 in excel deel ik hem door 1024 krijg ik 504497.708 KB deel ik dit getal weer door 1024 krijg ik wel wat windows zegt 492MB. ??

Wat is goed???

 

[mcs51mc]

2de is goed

De verhouding "1000" tussen kilo, mega, terra, giga, enz. is enkel geldig voor fysische grootheden, niet voor bytes, daar is het 1024.

 

[snb]

Sub folderomvang()
    MsgBox CreateObject("Scripting.FileSystemObject").GetFolder("G:\OF").Size \ 2 ^ 20 & " Mb"
End Sub

 

[Gerton64]

Whooooww top heren bedankt voor snellen reactie.

Heb gelijk scripje toegevoegd van SNB, Maar kan er ook iets maakt worden dat het gelijk zichtbaar is in een cel??? ik heb namelijk een aantal mappen waar is de data bij wilt houden. (in verschillende cellen.)

 

[snb]

Als UDF

Function F_folderomvang(c00)
    F_folderomvang= CreateObject("Scripting.FileSystemObject").GetFolder(c00).Size \ 2 ^ 20 & " Mb"
End Function

In cel A10 bijv:

=F_folderomvang("G:\OF")

 

[Gerton64]

Mmmm 15 min mee bezig geweest, geeft het even op. krijg een foutmelding van "#NAAM?" zie (nog)niet wat ik verkeert doet.

 

[snb]

3 dingen: verkeerd doe (zonder t)
Zet de UDF in een aparte macromodule van het werkboek.

 

[Gerton64]

Yessssss. Ben zo blij. bedankt voor de uitleg.

is opgelost !!

 

[popipipo]

http://nl.wikipedia.org/wiki/Byte
Bekijk deze site eens