Cara Mudah Membuat Folder dengan Visual Basic

Membuat folder dengan visual basic.

Komponen-komponen yang digunakan antara lain :

Fungsi API	Create Directory
Parameter	lpPathName, lpSecurityAttributes
Library	Kernel32.DLL
Tipe Data	SECURITY_ATTRIBUTES
Versi VB	VB 6.0
Sistem Operasi	Windows 98 / ME/ NT / Xp

Fungsi Create Directory untuk membuat direktori baru di dalam disk.  Jika sistem operasi mengandung direktori, maka fungsi otomatis menambahkan setting pengamanan file lpSecurityAttributes pada spesifikasi direktori yang akan dibuat.  Ini berguna untuk melindungi agar folder/direktori yang ada tidak hilang (di remove).

Langkah :

Buatlah sebuah Form, kemudian tambahkan option button 3 buah,  command button 1 buah, dan text button 1 buah.

Kemudian kopikan code pemrograman di bawah ini ke area kode pemrograman :

Private Type SECURITY_ATTRIBUTES

nLength As Long

lpSecurityDescriptor As Long

bInheritHandle As Long

End Type

Private Declare Function CreateDirectory Lib “kernel32.dll” Alias “CreateDirectoryA” _

(ByVal lpPathName As String, lpSecurityAttributes As SECURITY_ATTRIBUTES) As Long

Private Sub Command1_Click()

Dim x As Byte

Dim y As SECURITY_ATTRIBUTES

Dim z As String

If Text1.Text = “” Then Text1.SetFocus: Exit Sub

If Option1.Value = True Then

z = “C:\” & Text1.Text

ElseIf Option2.Value = True Then

z = “D:\” & Text1.Text

ElseIf Option3.Value = True Then

z = “E:\” & Text1.Text

End If

y.lpSecurityDescriptor = 0

y.bInheritHandle = True

y.nLength = Len(y)

x = CreateDirectory(z, y)

If x = 1 Then

MsgBox “Directory berhasil dibuat” & vbCrLf & “Created by http://trisnowlaharwetan.wordpress.com “, vbInformation, “http://trisnowlaharwetan.wordpress.com”

Else

MsgBox “membuat directory gagal” & vbCrLf & “Direktory sudah ada atau Drive tidak ditemukan” & vbCrLf & “Created by http://trisnowlaharwetan.wordpress.com”, vbInformation, “http://trisnowlaharwetan.wordpress.com”

End If

End Sub

Semoga bermanfaat. Amin