Cara Membuat Direktori atau Folder Akses Administrator Dengan Kode VB6

Buat pengguna komputer tentu tidak asing lagi dalam membuat sebuah folder baru untuk memisahkan sebuah file agar mudah dicari. Sebelum membuat folder baru biasanya kita harus menentukan terlebih dahulu di Direktori mana folder di tempatkan misalnya di D atau C

Folder ibarat sebuah kamar yang untuk menempatkan file yang isinya lebih spesifikasi yang berhubungan dengan nama folder yang kita buat, misal kita membuat folder baru dengan nama vb6 maka isi file tersebut lebih spesifikasi tentang yang berhubungan dengan vb6.

Pada artikel kali Admin akan berbagi sebuah kode Cara Membuat Direktori atau Folder Akses Administrator Dengan Kode VB6.

Ouput Program

Berikut adalah langkah-langkah dalam pembuatannya :

1. Buka Form VB6 Satndar EXE

2. Tanamkan beberapa Control didalamnya :

Label

TextBox, dan 

CommandButton

3. Desainlah Form seperti gambar dibawah in :

Desain Form

4. Setelah mendesain Form ketiklah kode dibawah ini :

'BUAT FOLDER

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

Dim x As Byte

Dim y As SECURITY_ATTRIBUTES

Dim Z As String

'+++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++

Private Type BrowseInfo

    hwndOwner      As Long

    pIDLRoot       As Long

    pszDisplayName As Long

    lpszTitle      As Long

    ulFlags        As Long

    lpfnCallback   As Long

    lParam         As Long

    iImage         As Long

End Type

Private Const BIF_BROWSEFORCOMPUTER = &H1000

Private Const BIF_BROWSEFORPRINTER = &H2000

Private Const BIF_BROWSEINCLUDEFILES = &H4000

Private Const BIF_DONTGOBELOWDOMAIN = &H2

Private Const BIF_EDITBOX = &H10

Private Const BIF_NEWDIALOGSTYLE = &H40

Private Const BIF_RETURNFSANCESTORS = &H8

Private Const BIF_RETURNONLYFSDIRS = &H1

Private Const BIF_STATUSTEXT = &H4

Private Const BIF_USENEWUI = (BIF_NEWDIALOGSTYLE Or BIF_EDITBOX)

Private Const MAX_PATH = 260

Private Declare Sub CoTaskMemFree Lib "ole32.dll" _

    (ByVal hMem As Long)

Private Declare Function lstrcat Lib "kernel32" _

    Alias "lstrcatA" (ByVal lpString1 As String, _

    ByVal lpString2 As String) As Long

Private Declare Function SHBrowseForFolder Lib "shell32" _

    (lpBI As BrowseInfo) As Long

Private Declare Function SHGetPathFromIDList Lib "shell32" _

    (ByVal pidList As Long, ByVal lpBuffer As String) As Long

Const CSIDL_DESKTOP = &H0

Const CSIDL_PROGRAMS = &H2

Const CSIDL_CONTROLS = &H3

Const CSIDL_PRINTERS = &H4

Const CSIDL_PERSONAL = &H5

Const CSIDL_FAVORITES = &H6

Const CSIDL_STARTUP = &H7

Const CSIDL_RECENT = &H8

Const CSIDL_SENDTO = &H9

Const CSIDL_BITBUCKET = &HA

Const CSIDL_STARTMENU = &HB

Const CSIDL_DESKTOPDIRECTORY = &H10

Const CSIDL_DRIVES = &H11

Const CSIDL_NETWORK = &H12

Const CSIDL_NETHOOD = &H13

Const CSIDL_FONTS = &H14

Const CSIDL_TEMPLATES = &H15

Const CSIDL_COMMON_STARTMENU = &H16

Const CSIDL_COMMON_PROGRAMS = &H17

Const CSIDL_COMMON_STARTUP = &H18

Const CSIDL_COMMON_DESKTOPDIRECTORY = &H19

Const CSIDL_APPDATA = &H1A

Const CSIDL_PRINTHOOD = &H1B

Private Type SHITEMID

    Cb   As Long

    AbID As Byte

End Type

Private Type ITEMIDLIST

    Mkid As SHITEMID

End Type

Private Declare Function SHGetSpecialFolderLocation Lib "shell32.dll" (ByVal hwndOwner As Long, ByVal nFolder As Long, pidl As ITEMIDLIST) As Long

Private Declare Function OleInitialize Lib "ole32.dll" (lp As Any) As Long

Private Declare Sub OleUninitialize Lib "ole32" ()

Private Function fGetSpecialFolder(CSIDL As Long, IDL As ITEMIDLIST) As String

Dim sPath As String

If SHGetSpecialFolderLocation(hWnd, CSIDL, IDL) = 0 Then

    sPath = Space$(MAX_PATH)

    If SHGetPathFromIDList(ByVal IDL.Mkid.Cb, ByVal sPath) Then

        fGetSpecialFolder = Left$(sPath, InStr(sPath, vbNullChar) - 1) & "\"

    End If

End If

End Function

Public Function fBrowseForFolder(hwndOwner As Long, sPrompt As String) As String

Dim iNull    As Long

Dim lpIDList As Long

Dim lResult  As Long

Dim sPath    As String

Dim sPath1   As String

Dim udtBI    As BrowseInfo

Dim IDL      As ITEMIDLIST

'

sPath1 = fGetSpecialFolder(CSIDL_DESKTOP, IDL)

Call OleInitialize(ByVal 0&)

With udtBI

    .pIDLRoot = IDL.Mkid.Cb

    .hwndOwner = hwndOwner

    .lpszTitle = lstrcat(sPrompt, "")

    .ulFlags = BIF_RETURNONLYFSDIRS '+ BIF_USENEWUI

End With

lpIDList = SHBrowseForFolder(udtBI)

If lpIDList Then

    sPath = String$(MAX_PATH, 0)

    lResult = SHGetPathFromIDList(lpIDList, sPath)

    Call CoTaskMemFree(lpIDList)

    

    iNull = InStr(sPath, vbNullChar)

    If iNull Then sPath = Left$(sPath, iNull - 1)

End If

Call OleUninitialize

fBrowseForFolder = sPath

End Function

Private Sub Command1_Click()

Dim sStr As String

sStr = fBrowseForFolder(hWnd, "Pilih Direktori / Path Tujuan")

If sStr <> vbNullString Then

Label3.Caption = sStr

        

If Right(sStr, 1) = "\" Then

    Label3.Caption = sStr

Else

Label3.Caption = sStr & "\"

End If

End If

End Sub

Private Sub Command2_Click()

If Text1.Text <> vbNullString Then

   'VARIABEL BUAT FOLDER

   y.lpSecurityDescriptor = 0

   y.bInheritHandle = True

   y.nLength = Len(y)

   x = CreateDirectory(Label3.Caption & Text1.Text, y)

   '+++++++++++++++++++++++++++++++++++++++++++++++++++

   MsgBox "Folder : [ " & Text1.Text & " ] Telah dibuat pada [ " & Label3.Caption & " ] ", vbInformation, "Informasi"

End If

End Sub

Private Sub Form_Load()

Text1.Text = ""

Label3.Caption = ""

End Sub

Setelah membuat kode seperti diatas, sekarang coba test project anda dengan menekan tombol RUN/F5 kemudian coba ketik Nama Folder yang akan kita buat di TextBox lalu klik tombol [ ... ], maka akan tampil kotak dialog Folder View untuk menempatkan dimana di direktori nama folder akan dibuat langkah terakhir tekan Buat Folder.

Demikian artikel singkat pada hari ini tentang Cara Membuat Direktori atau Folder Akses Administrator Dengan Kode VB6, semoga artikel ini bermanfaat buat kita semua.Amin.

Selamat mencoba semoga berhasil.

Related Post: File Directory Tools