1.正则表达式
工程--引用)Microsoft VBScript Regular Expressions 5.5
2.打开文件对话框
工程-->部件-->Microsoft Common Dialog Control 6.0