单击命令按钮弹出对话框 js弹出模态对话框

VB中，点击命令按钮，怎么弹出对话框，用来选取文件路径？添加CommonDialog控件专用子命令1uClick（）commondialog1。显示打开文本1。文本=公...