VB程序自动检测文件的问题

来源：百度知道 编辑：UC知道 时间：2024/07/02 20:27:03
用VB编一程序(如VB.exe)，VB.exe运行后 自动检测a.txt这个文件是否和VB.exe在同一文件夹下，如果文件夹内缺少a.txt则VB.exe不能运行，怎么弄？要详细代码！谢谢谢谢！！！！！！！！！！！！！

Private Sub Form_Load()
Dim a As String
If Right(App.Path,1)<>"\" Then
a=App.Path & "\a.txt"
Else
a=App.Path & "a.txt"
End If
If Dir(a)="" Then
end
End If
End Sub
对app.path的检查是为了程序即使在根目录下也能使用。

直接在Form_Load用OPEN "a.txt" for input as #1
打开文件就行了,,,找不到文件的话就自动退出了.