Metode Shell.BrowseForFolder

Membuat kotak dialog yang memungkinkan pengguna memilih folder lalu mengembalikan objek Folder yang dipilih.

Sintaks

retVal = Shell.BrowseForFolder(
  Hwnd,
  sTitle,
  iOptions,
  [ vRootFolder ]
)

Shell.BrowseForFolder( _
  ByVal Hwnd As Integer, _
  ByVal sTitle As BSTR, _
  ByVal iOptions As Integer, _
  [ ByVal vRootFolder As Variant ] _
) As FOLDER

Parameter

Hwnd [in]

Jenis: Bilangan bulat

Handel ke jendela induk kotak dialog. Nilai ini bisa nol.

sTitle [in]

Jenis: BSTR

Nilai String yang mewakili judul yang ditampilkan di dalam kotak dialog Telusuri .

iOptions [in]

Jenis: Bilangan bulat

Nilai Bilangan bulat yang berisi opsi untuk metode . Ini bisa nol atau kombinasi nilai yang tercantum di bawah anggota ulFlags dari struktur BROWSEINFO .

vRootFolder [in, opsional]

Jenis: Varian

Folder akar yang akan digunakan dalam kotak dialog. Pengguna tidak dapat menelusuri lebih tinggi di pohon daripada folder ini. Jika nilai ini tidak ditentukan, folder akar yang digunakan dalam kotak dialog adalah desktop. Nilai ini dapat berupa string yang menentukan jalur folder atau salah satu nilai ShellSpecialFolderConstants . Perhatikan bahwa nama konstanta yang ditemukan di ShellSpecialFolderConstants tersedia di Visual Basic, tetapi tidak dalam VBScript atau JScript. Dalam kasus tersebut, nilai numerik harus digunakan di tempatnya.

Menampilkan nilai

JScript

Jenis: FOLDER**

Referensi objek ke objek Folder yang dipilih.

VB

Jenis: FOLDER**

Referensi objek ke objek Folder yang dipilih.

Contoh

Contoh berikut menggunakan BrowseForFolder untuk menampilkan jendela telusuri berjudul "Contoh" yang berakar pada folder Windows. Penggunaan yang tepat ditampilkan untuk JScript, VBScript, dan Visual Basic.

Jscript:

<script language="JScript">
    function fnShellBrowseForFolderJ()
    {
        var objShell = new ActiveXObject("shell.application");
        var ssfWINDOWS = 36;
        var objFolder;
        
        objFolder = objShell.BrowseForFolder(0, "Example", 0, ssfWINDOWS);
        if (objFolder != null)
        {
            // Add code here.
        }
    }
</script>

Vbscript:

<script language="VBScript">
    function fnShellBrowseForFolderVB()
        dim objShell
        dim ssfWINDOWS
        dim objFolder
        
        ssfWINDOWS = 36
        set objShell = CreateObject("shell.application")
            set objFolder = objShell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
                if (not objFolder is nothing) then
                    'Add code here.
                end if
            set objFolder = nothing
        set objShell = nothing
    end function
 </script>

Visual Basic:

Private Sub fnShellBrowseForFolderVB()
    Dim objShell   As Shell
    Dim ssfWINDOWS As Long
    Dim objFolder  As Folder
    
    ssfWINDOWS = 36
    Set objShell = New Shell
        Set objFolder = objShell.BrowseForFolder(0, "Example", 0, ssfWINDOWS)
            If (Not objFolder Is Nothing) Then
                'Add code here
            End If
        Set objFolder = Nothing
    Set objShell = Nothing
End Sub

Persyaratan

Persyaratan	Nilai
Klien minimum yang didukung	Windows 2000 Professional, Windows XP [hanya aplikasi desktop]
Server minimum yang didukung	Windows 2000 Server [hanya aplikasi desktop]
Header	Shldisp.h
IDL	Shldisp.idl
DLL	Shell32.dll (versi 4.71 atau yang lebih baru)