i

Select Folder Dialog


Option Explicit


Dim strPath


strPath = SelectFolder( "" )

If strPath = vbNull Then

    WScript.Echo "Cancelled"

Else

    WScript.Echo "Selected Folder: """ & strPath & """"

End If



Function SelectFolder( myStartFolder )

' This function opens a "Select Folder" dialog and will

' return the fully qualified path of the selected folder

'

' Argument:

'     myStartFolder    [string]    the root folder where you can start browsing;

'                                  if an empty string is used, browsing starts

'                                  on the local computer

'

' Returns:

' A string containing the fully qualified path of the selected folder

'

' Written by Rob van der Woude

' http://www.robvanderwoude.com


    ' Standard housekeeping

    Dim objFolder, objItem, objShell

   

    ' Custom error handling

    On Error Resume Next

    SelectFolder = vbNull


    ' Create a dialog object

    Set objShell  = CreateObject( "Shell.Application" )

    Set objFolder = objShell.BrowseForFolder( 0, "Select Folder", 0, myStartFolder )


    ' Return the path of the selected folder

    If IsObject( objfolder ) Then SelectFolder = objFolder.Self.Path


    ' Standard housekeeping

    Set objFolder = Nothing

    Set objshell  = Nothing

    On Error Goto 0

End Function