利用控件的初始目录属性InitDir

Dim CDG,WSH,FilePath
Set CDG=CreateObject("MSCOMDLG.CommonDialog.1")
CDG.MaxFileSize=260
CDG.InitDir="F:\" '设置默认目录
CDG.ShowOpen
FilePath=CDG.FileName ''获取选定文件的完整路径
Set CDG=Nothing '' 释放对象
Set WSH=CreateObject("Ws cript.Shell")
WSH.Run "Cmd /C Start """" """ & FilePath & """",0 ''打开选定的文件
Set WSH=Nothing