Mengecek Ukuran dan Jenis File dengan VB

Untuk melihat ukuran maupun jenis file sangantlah mudah di lakukan, tapi pernahkah anda berfikir bagai mana system komputer dapat melakukan itu dengan mudah, padahal dibalik layar banyak coding coding tersusun untuk dapat membantu kita, salah satunya untuk melihat ukuran sebuah file maupen jenis file.
Nah bagai mana kalau kita membuatnya sendiri dengan bantuan Microsoft Visual Basic atau yang sering disebut dengan VB.

Cara:
Tambahkan sebuah componen Microsoft Commond Dialog Control 6.0
dengan cara klik kanan pada bagian toolsbox yang kosong lalu pilih Component...


Pada form tambahkan component : 1 textbox, 1 CommondDialog, 2 buah Button.

Pada form tambahkan kode prosedur, dengan mengklik dua kali form, dan ketikkan coding berikut :
Sub baca(foldername)
Dim x, f, s, h, t
Set x = CreateObject("Scripting.FileSystemObject")
Set f = x.getfile(foldername)
s = f.Size
t = f.Type
h = Val(s) / 1000000
h = Left(h, 4) & " " & "Mb"

MsgBox "Ukuran file : " & h & vbLf & "" _
& "Jenis file :" & t
End Sub

Pada Command1 tambahkan coding berikut:

Private Sub Command1_Click()
CommonDialog1.ShowOpen
Text1.Text = CommonDialog1.FileName
End Sub

Pada Command2 tambahkan coding berikut :

Private Sub Command2_Click()
Call baca(Text1.Text)
End Sub


GOOD LUCk....