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

Question

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

Answer 1

ropen:
CommonDialog1.InitDir = ""
    CommonDialog1.FileName = ""
    CommonDialog1.Flags = cdlOFNHideReadOnly
    CommonDialog1.ShowOpen
    strFileName = CommonDialog1.FileNameif strfilename<>"" then
    if dir(strfilename)="" then goto ropen
end if

Answer 2

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

Answer 3

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