Membuat Multi Directory

PERSIAPAN			PROPERTIES
NO	CONTROL	ITEM	NAME	VALUE	KETERANGAN
1.	TextBox	4
2.	Label	1	Caption	Hasil
3.	CommandButton	1	Caption	OK
4.	Timer	1	Interval	100

Gambar Membuat Multi Directory

Masukkan souce ini ke dalam Form :Option Explicit Private Declare Function CreatMultiDir Lib "imagehlp.dll" Alias "MakeSureDirectoryPathExists" (ByVal lpPath As String) As Long Private Sub Command1_Click() CreatMultiDir Text4.Text End Sub Private Sub Timer1_Timer() If Text1.Text = "" Or Text2.Text = "" Or Text3.Text = "" Then Text4.Text = "" Else Text4.Text = "C:\" & Text1.Text & "\" & Text2.Text & "\" & Text3.Text & "\" End If End Sub