Vbs folder selection box

 

1234567891011121314151617181920212223

on error resume NextConst MY_COMPUTER=&H11&Const WINDOW_HANDLE=0Const OPTIONS=0'Set my computer as the root directorySet objShell=CreateObject("Shell.Application")Set objFolder=objShell.Namespace(MY_COMPUTER)Set objFolderItem=objFolder.SelfstrPath=objFolderItem.Path Set objShell=CreateObject("Shell.Application")Set objFolder=objShell.BrowseForFolder(WINDOWS_HANDLE,"Select a folder :",OPTIONS,strPath) If objFolder Is Nothing ThenWscript.QuitEnd IfSet objFolderItem=objFolder.SelfobjPath=objFolderItem.PathIf objPath="" ThenWscript.QuitElseWscript.Echo objPathEnd If