package require twapi
set shell [twapi::comobj "Shell.Application"]
set folder [$shell BrowseForFolder  0 "Hello, COM(Tcl) World!" 0 36 ]