(import (com.jacob.com Variant) (com.jacob.activeX ActiveXComponent)) (def shell (ActiveXComponent. "Shell.Application")) (def hwnd (Variant. 0)) (def title (Variant. "Hello, COM(JACOB) World!")) (def option (Variant. 0)) (def rootFolder (Variant. 36)) (def params (into-array [hwnd title option rootFolder])) (def folder (.invoke shell "BrowseForFolder" params ))