Mengetahui Ukuran File Dan Folder

Jika anda membutuhkan code atau syntak untuk dapat mengetahui ukuran file maupun folder, anda cukup menempelkan code berikut ini :

Mengetahui ukuran file

Dim l As Long
l = FileLen("LOKASI FILE")
MsgBox l

Mengetahui ukuran Folder

Dim fso As Object
Set fso = CreateObject("Scripting.FileSystemObject")
MsgBox fso.GetFolder("LOKASI FOLDER").Size

Nilai output yang dihasilkan merupakan nilai dengan satuan Byte (B). Perbandingannya :
1024 Byte (B) = 1 KiloByte (KB)
1024 KiloByte (KB) = 1 MegaByte (MB)
1024 MegaByte (MB) = 1 GigaByte (GB)
Jadi misalnya Anda ingin mengetahui ukuran file dalam satuan MegaByte (MB) , contohnya sebagai berikut :

Dim l As Long
l = ((FileLen("LOKASI FILE") / 1024) / 1024)
MsgBox l & " MB"

Atau anda ingin mendapatkan source nya, download aja Disini

Demikian tutorial kali ini .
Semoga dapat membantu :)