Source code for getfoldr.vbs

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