Cara Membuat Open File / Membuka Directory VB6(No CommandDialog.ocx)

kali ini saya share kembali tutorial project open file, open directory with visual basic 6 tanpa CommandDialog

pertama buat sebuah form kemudian klik kanan - pilih view code - pastekan kode berikut

      Option Explicit

      Private Const BIF_RETURNONLYFSDIRS = 1
      Private Const BIF_DONTGOBELOWDOMAIN = 2
      Private Const MAX_PATH = 260

      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

      Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _
                                        (ByVal lpString1 As String, ByVal _
                                        lpString2 As String) As Long

      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

Setelah code diatas selesai maka tambahkan 1 commandbutton, double klik pada commandbutton :

 Private Sub Command1_Click()

         Dim lpIDList As Long
         Dim sBuffer As String
         Dim szTitle As String
         Dim tBrowseInfo As BrowseInfo

         szTitle = "This is the title"
         With tBrowseInfo
            .hWndOwner = Me.hWnd
            .lpszTitle = lstrcat(szTitle, "")
            .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
         End With

         lpIDList = SHBrowseForFolder(tBrowseInfo)

         If (lpIDList) Then
            sBuffer = Space(MAX_PATH)
            SHGetPathFromIDList lpIDList, sBuffer
            sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
            MsgBox sBuffer
         End If
      End Sub

 

Thank's for reading the articelCara Membuat Open File / Membuka Directory VB6(No CommandDialog.ocx) .If You want to copy paste your website please tag my link Cara Membuat Open File / Membuka Directory VB6(No CommandDialog.ocx) Intro My Website.
<a href="http://operaterpm.blogspot.com/2013/11/cara-membuat-open-file-membuka.html">Cara Membuat Open File / Membuka Directory VB6(No CommandDialog.ocx)</a>