set bzhao = CreateObject("BZWhll.WhllObj") bzhao.Connect Folder1 = bzhao.GetFolderName("Base Folder Selection", "Select the root folder to use:", "c:\") MsgBox Folder1