Question

VB生成txt文本文件问题

使用下面的语句可以创建一个以text1命名的txt文件
Open App.Path & "\user\" & Text1.Text & ".txt" For Output As #1
'Print #1, Text1.Text
Close #1
要求是在创建这个文本文件时有个条件：
如果发现\user\这个路径下有个与Text1.Text名字一样的文本文件时就不执行上面的创建，而是使用msgbox""语句。该怎么写啊！

Answer 1

If Dir(App.Path & "\user\" & Text1.Text & ".txt" ) <> "" Then
msgbox "文件已经存在"
else
Open App.Path & "\user\" & Text1.Text & ".txt" For Output As #1
'Print #1, Text1.Text
Close #1
End

Answer 2

if dir(App.Path & "\user\" & Text1.Text & ".txt" )<>"" then
msgbox"文本存在"
exit sub
end if