一个关于打开文件的问题，救命啊！！！

Question

首先请明确你要怎么做
如果你要运行此文件，那你得加入运行的语句，commondialog只是返回你一个要打开的文件名而已，要打开此文件则需加入以下语句（以Ole方式打开）
Shell commondialog.filename

Answer 1

dim strfile as string
CommonDialog1.Filter = "数据库文件|*.mdb"
CommonDialog1.DialogTitle = "库文件："
CommonDialog1.InitDir = App.Path
CommonDialog1.CancelError = False
CommonDialog1.ShowOpen
strfile=CommonDialog1.filename
if dir(strfile)<>"" then
text1.text=strfile
end if
试一试

Answer 2

不，我的意思是不能像windows里一样双击一个文件以后就把他打开或是运行
应该怎么做那？？？