Berikut ini kita akan membuat program melalui visual basic 6 yang mampu melihat folder-folder yang tersimpan pada suatu drive atau folder utama.
Sebelum itu tolong masukkan atribut berikut pada form 1 : 2 buah text box, 1 buah dirlistbox dan 1 command button.
Setelah itu ketikan kode berikut :
1.Private sub command1_click()
2.On error resume next
3.Dim i as integer
4.Dim tmp, data as string
5.Dim dr as string
6.Dim a, b as string
7.A=””
8.A=text2.text
9.Dr = text1.text & “:” & “\” & a
10.Dir1.path = dr
11.B= dir1.listcount
12.For i = 0 to b -1
13.Tmp = dir1.list(i)
14.Data = data & tmp & vbnewline
15.Next
16.Msgbox (“jumlah folder ada=” & b & vbnewline & data, vbokonly)
17.Endsub
Nb. Pada kedua textbox tolong di set pada properties multiline ke true
Silakan mencoba
Download Article ini
Tidak ada komentar:
Posting Komentar