如何判断外部某一个特定文件是否存在？　
比如　我的程序　要实现使用次数统计！　　
我事先建立了一个　no.txt文件　内容是０
每一次打开程序的时候自动从里面读出内容
并加一显示　然后再把显示的结果写回no.txt文件
就可以实现程序打开次数的统计！
但是如果no.txt 文件　删了以后，程序一执行就　错误！　

如果可以在从　no.txt文件　中提取数据之前　先判断一下　no.txt文件是否存在！
如果存在　　继续读取数据
如果不存在　　自己建立一个　名为　no.txt 文件　内容为　０
继续读取文件！

希望高手帮助一下！

Dir函数可以判断文件是否存在..

不知道这个能不能实现你所说的功能:
Private Sub Form_Load()
On Error Resume Next
Dim NumStr As String

Open "d:\no.txt" For Input As #1 '读取文件
If Err.Number = 53 Then '如果此文件不存在写以文件内容为"0"
Open "d:\no.txt" For Output As #1
Print #1, "0"
Close #1
End If
Input #1, dayStr
Close #1
End Sub

直接用dir函数就可以判断文件是否存在了...不必还去判断错误的....

dir函数我不会用...可以举个实例说明一下..谢谢了!

dir不会用..还在什么波形...什么图像加密的?...
好好搞好基础吧..

所以从我问的问题就引申出了我得学的问题了...这是一种学习的方法!一种有效的方法!

dir函数
语法:Dir[(filename,[attributtes])]
功能:用于返回一个字串表达式,包含文件名、目录名或文件来名称等.
例如:
Private Sub Form_Load()
dim fname as string
fname=Dir("d:\no.txt")
If fname= "" Then
MsgBox "此文件不存在"
Else
MsgBox "文件名为" & fname
End If
End Sub

汗,一个高手也不一写能精通所有的VB基础并能运用自如,你直接给出他用法不是更好吗?也不用人家又去翻书东找找西找找了.

谢谢了!

你的这段代码运行时会出错的, 会出现文件已打开之类的错误