Code will not run in debuger

[edpatterson]

The following script direct from MSDN runs fine from the command line using either cscript or wscript but just 'hangs' when run from within PrimalScript. It is like the dialog is opened just not visible.

Is there a config setting or perhaps another way to open a folder browser that will work from within PrimalScript? I have become spoiled by the Ctrl-F5 functionality

Code: Select all

Const WINDOW_HANDLE = 0
Const OPTIONS = 0

Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.BrowseForFolder _
    (WINDOW_HANDLE, "Select a folder:", OPTIONS, "C:") 

If objFolder Is Nothing Then
    Wscript.Quit
End If

Set objFolderItem = objFolder.Self
objPath = objFolderItem.Path

Wscript.Echo objPath