Cara Mudah Membuat Folder dengan Visual Basic

Setelah membahas mengenai Windows API, sekarang kita akan mulai memanfaatkan fungsi-fungsi windows API tersebut ke dalam implementasi program menggunakan visual basic 6.0.  Kita akan menggunakan fungsi API Visual Basic, pada materi ini akan 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 https://trisnowlaharwetan.wordpress.com “, vbInformation, “https://trisnowlaharwetan.wordpress.com”

Else

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

End If

End Sub

Tampilan seperti gambar di bawah ini :

Bagi yang menginginkan file mentah + code pemrograman silakan download di sini link bawah :

trisnowlaharwetan.rar

5 Balasan ke Cara Mudah Membuat Folder dengan Visual Basic

  1. ryodimas mengatakan:

    makasih dah sharing, gan…

  2. ryodimas mengatakan:

    Visual Basic has some mysterious ways do create something…

  3. triswlaharwtnbms mengatakan:

    @ rodimas : makasih kembali Gan…

  4. farhad mengatakan:

    waw.. saya paling ngga paham vb yang begini pak.. hehe,, saya baca2 dulu deh kodenya pak.. Makasi for sharing pak..

  5. dark.ivory@yahoo.com mengatakan:

    pak filenya tak bisa di download

Tinggalkan Balasan

Isikan data di bawah atau klik salah satu ikon untuk log in:

Logo WordPress.com

You are commenting using your WordPress.com account. Logout / Ubah )

Gambar Twitter

You are commenting using your Twitter account. Logout / Ubah )

Foto Facebook

You are commenting using your Facebook account. Logout / Ubah )

Foto Google+

You are commenting using your Google+ account. Logout / Ubah )

Connecting to %s

%d blogger menyukai ini: