如果不想用控件 Microsoft Common Dialog Control 6.0 (SP6) ,可以用CreateObject完成。
原始的CmDialog的写法: