Cara Membuat Browse Folder

بِسْــــــــــــــــمِ اﷲِالرَّحْمَنِ اارَّحِيم

bismillaahirrahmaanirrahiim

السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

Assalamu'alaikum warahmatullahi wabarakatuh

Jika kita ingin membuat antivirus atau pengunci folder,pasti kita akan ketemu pada tutorial yang kali ini. Yaitu Browse folder .
Gambar dilihat dari gambar di atas .
Untuk membuat browse for folder, anda cukup copy code di bawah ini dan di simak baik-baik .

[ VB 6.0 ]

Buat ini dimodule .

Public Declare Function SHBrowseForFolder Lib "shell32" _    (lpbi As BrowseInfo) As LongPublic Declare Function SHGetPathFromIDList Lib "shell32" _    (ByVal pidList As Long, ByVal lpBuffer As String) As LongPublic 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 LongEnd TypePublic Const BIF_RETURNONLYFSDIRS = 1Public Const MAX_PATH = 260Public Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" _    (ByVal lpString1 As String, ByVal lpString2 As String) As Long

Pada Form buat 1 buah kontrol Command Button dan ketikkan ini.(bukan di form loadnya )

Function SelectFolder()    Dim strPath As String, Bi As BrowseInfo, iShow As Long     On Error GoTo Select_Error    Bi.hWndOwner = Me.hWnd    Bi.lpszTitle = lstrcat("Pilih folder yg ingin disamarkan .....", "")    Bi.ulFlags = 2 'BIF_RETURNONLYFSDIRS    iShow = SHBrowseForFolder(Bi)    If iShow Then        strPath = String$(MAX_PATH, Chr(0))        SHGetPathFromIDList iShow, strPath        strPath = Left$(strPath, InStr(strPath, Chr$(0)) - 1)        SelectFolder = strPath    End If     Exit FunctionSelect_Error:    SelectFolder = ""End Function

Command1_click()Me.TxtPath.Text = SelectFolderEnd if

[ VB .NET ]
Kode untuk memanggilnya adalah :

Dim dlg As New FolderBrowserDialog

'jk ingin yg MyDocuments saja, aktifkan kode d bawah ini'dlg.RootFolder = Environment.SpecialFolder.MyDocuments
dlg.Description = "Pilih Folder"
If dlg.ShowDialog() = 1 ThenMsgBox(dlg.SelectedPath) 'folder yg terpilihEnd If

Selesai juga, semoga dapat membantu :)

Update Contact :
No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email : Fajarudinsidik@gmail.com NB :: Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code, membeli hardware elektronika untuk kepentingan Perusahaan maupun Tugas Akhir (TA/SKRIPSI), Insyaallah Saya siap membantu, untuk Respon Cepat dapat menghubungi kami, melalui :

No Wa/Telepon (puat) : 085267792168
No Wa/Telepon (fajar) : 085369237896
Email: Fajarudinsidik@gmail.com

atau Kirimkan Private messanger melalui email dengan klik tombol order dibawah ini :

ٱلْحَمْدُ لِلَّهِ رَبِّ ٱلْعَٰلَمِين

Alhamdulilah hirobil alamin

وَ السَّلاَمُ عَلَيْكُمْ وَرَحْمَةُ اللهِ وَبَرَكَاتُهُ

wassalamualaikum warahmatullahi wabarakatuh

Artikel Cara Membuat Browse Folder, Diterbitkan oleh scodeaplikasi pada Minggu, 09 Desember 2012. Semoga artikel ini dapat menambah wawasan Anda. Website ini dipost dari beberapa sumber, bisa cek disini sumber, Sobat diperbolehkan mengcopy paste / menyebar luaskan artikel ini, karena segala yang dipost di public adalah milik public. Bila Sobat tertarik Ingin membuat software, membeli software, membeli source code ,Dengan Cara menghubungi saya Ke Email: Fajarudinsidik@gmail.com, atau No Hp/WA : (fajar) : 085369237896, (puat) : 085267792168.