IShellDispatch.BrowseForFolder 메서드

사용자가 폴더를 선택한 다음 선택한 폴더의 Folder 개체를 반환할 수 있는 대화 상자를 만듭니다.

구문

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

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

매개 변수

Hwnd [in]

형식: 정수

대화 상자의 부모 창에 대한 핸들입니다. 이 값은 0일 수 있습니다.

sTitle [in]

형식: BSTR

찾아보기 대화 상자 내에 표시되는 제목을 나타내는 문자열 값입니다.

iOptions [in]

형식: 정수

메서드에 대한 옵션을 포함하는 정 수 값입니다. 0이거나 BROWSEINFO 구조체의 ulFlags 멤버 아래에 나열된 값의 조합일 수 있습니다.

vRootFolder [in, optional]

형식: Variant

대화 상자에서 사용할 루트 폴더입니다. 사용자는 트리에서 이 폴더보다 높은 위치로 찾아볼 수 없습니다. 이 값을 지정하지 않으면 대화 상자에 사용되는 루트 폴더가 바탕 화면입니다. 이 값은 폴더의 경로 또는 ShellSpecialFolderConstants 값 중 하나를 지정하는 문자열일 수 있습니다. ShellSpecialFolderConstants에 있는 상수 이름은 Visual Basic에서 사용할 수 있지만 VBScript 또는 JScript에서는 사용할 수 없습니다. 이러한 경우 숫자 값을 해당 위치에 사용해야 합니다.

반환 값

JScript

형식: FOLDER**

선택한 폴더의 Folder 개체에 대한 개체 참조입니다.

VB

형식: FOLDER**

선택한 폴더의 Folder 개체에 대한 개체 참조입니다.

설명

이 메서드는 Shell.BrowseForFolder 메서드를 통해 구현되고 액세스됩니다.

예제

다음 예제에서는 BrowseForFolder 를 사용하여 Windows 폴더에 루팅된 "예제"라는 찾아보기 창을 표시합니다. JScript, VBScript 및 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

요구 사항