Mengambil Extensi Suatu File dengan Visual Basic

Klik disini untuk Download Project
Persiapan :
Siapkan Kontrol-kontrol berikut ini :

Object	Name	Property	Value
Textbox	Text1	Text	(kosong)
Textbox	Text2	Text	(kosong)
Textbox	Text3	Text	(kosong)
Commanbutton	Command1	Caption	Cari File
CommonDialog	Commondialog1	-	-
Untuk menambahkan kontrol Commondialog terlebih dahulu dengan klik menu Project-Component-dan pada kotak dialog Components beri centang pada Microsoft Common Dialog Control 6.0 dan tekan Ok. Cara lain yaitu dengan menekan Ctl+T pada keyboard

Copykan kode berikut kedalam Form yang bersangkutan

Private Sub Command1_Click()<br /> CommonDialog1.ShowOpen<br /> Text1.Text = CommonDialog1.FileTitle<br /> End Sub<br /> <br /> Private Sub Text1_Change()<br /> Dim ext As String<br /> extx = Right(CommonDialog1.FileName, 3)<br /> Select Case extx<br /> Case "EXE"<br /> Text2.Text = "Application"<br /> Case "txt"<br /> Text2.Text = "Text file"<br /> Case "vbp"<br /> Text2.Text = "Vusual basic project"<br /> Case "frm"<br /> Text2.Text = "Visual basic form file"<br /> Case Else<br /> Text2.Text = extx + " File"<br /> End Select<br /> Text3.Text = CommonDialog1.FileTitle<br /> End Sub<br />

Jalankan dengan menekan tombol Start atau tekan F5 pada Keyboard

Good Luck !!