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