CommonDialog怎么实现打开不存在文件时返回showopen画面？

[wsheep]

CommonDialog1.InitDir = ""
CommonDialog1.FileName = ""
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName

现在输入个不存在的文件名，strfilename照样会得到这个文件名。我需要输入不存在的文件名并按OPEN后会弹出提示，并停留在打开文件画面（效果同记事本的打开功能）。不提示，就停在打开画面也行。
请大侠指教，小弟谢谢先了。

[tztz520]

ropen:
CommonDialog1.InitDir = ""
CommonDialog1.FileName = ""
CommonDialog1.Flags = cdlOFNHideReadOnly
CommonDialog1.ShowOpen
strFileName = CommonDialog1.FileName

if strfilename<>"" then
if dir(strfilename)="" then goto ropen
end if

[dinya2003]

把打开文件对话框写在过程里然后判断输入的文件名,如果为不存在则调用过程.

[hhjjhjhj]

........
CommonDialog1.Flags = cdlOFNHideReadOnly + cdlOFNFileMustExist
.........

[wsheep]

大头星星果然厉害。
哎，还是flags常量不熟，正好又没msdn在，装了个January2003用起来极不适应。