CEA -> Create Extension Application

Aplikasi ini berguna utk membuat sebuah Extension khusus Aplikasi.

Extension adalah tiga angka terakhir dalam semua nama file.

Tiga angka tersebut berfungsi sebagai tanda pengenal....ha...ha.h.a.ha.. kalo didunia manusia mah namanya KTP/SIM/kartu pelajar dsb.

Kelebihan aplikasi ini menurut saia sih:
1.Ada fitur Context (klik kanan)
2.Fitur membuat Extension (sesuka Hati kita pastinya) Khusus aplikasi

mau coba silahkan Unduh >>>>>>>>>>>>>>>>>> Download

Get Name in SubFolder

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	Form	1	Text	""	kosongkan

Masukkan souce ini ke dalam Form :Private Sub Form_Load() Dim TotalSplit As Variant Dim i As Integer Dim Directory As String Directory = "C:\Sub1\Sub2\Sub3" 'Get Total split TotalSplit = Split(Directory, "\") 'Get Info SubFolder For i = LBound(TotalSplit) To UBound(TotalSplit) MsgBox Split(Directory, "\")(i) Next i End Sub