Mengetahui Ukuran Suatu File

Asset : 4 Button


'KETIK PADA MASING2 TOMBOL UNTUK MENCOBA


'Cek ukuran file dengan satuan Byte
 Dim l As Long
 l = FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\FLV VIDEO.flv")
 MsgBox(l)


'Cek ukuran file dengan satuan Kilo Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\SWF VIDEO.swf") / 1024))
 MsgBox(l & " KB")


'Cek ukuran file dengan satuan Mega Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\OTHER\ASSETVB\VIDEO ASSET\WMV VIDEO.wmv") / 1024) / 1024)
 MsgBox(l & " MB")


'Cek ukuran file dengan satuan Giga Byte
 Dim l As Long
 l = ((FileLen("D:\C.A.P\SWR\OFFICE_PRG_SOFTWARE\OFFICE 2010.rar") / 1024) / 1024 / 1024)
 MsgBox(l & " GB")