File not Find Problem

[mse07]

hi for every one

the following statements open txt file and read it :

Dim f As Integer
f = FreeFile
Open App.Path & "\xx.txt" For Input As #f

but if (xx.txt) is deleted the compiler give me :

run time error'53'
file not find

i want if the program not find file,i want to execute next statement without show error .
what is the code use to ignore that error.

[Kuamr]

hi for every one

the following statements open txt file and read it :

Dim f As Integer
f = FreeFile
Open App.Path & "\xx.txt" For Input As #f

but if (xx.txt) is deleted the compiler give me :



i want if the program not find file,i want to execute next statement without show error .
what is the code use to ignore that error.

Try

on error resume next

[Paul M]

No no!

On Error End

would be better than that!
All you have to do is check if the file exists and if it doesn't create it

[gavio]

Private Sub Form_Load()
    Dim f As Integer
    Dim sFileName As String

    f = FreeFile
    sFileName = App.Path & "\xx.txt"

    If FileExist(sFileName) Then
        Open sFileName For Input As #f
            '...
        Close #f
    End If

    'continues here...
End Sub

Public Function FileExist(ByVal sFileName As String) As Boolean
    FileExist = (Len(Dir$(sFileName, vbHidden + vbSystem)) > 0)
End Function

[Paul M]

You forgot the

On Error Resume Next

Gavio

[mse07]

if i used :

On Error Resume Next

the program is hanged(not respond)

[Hack]

Forget On Error Resume Next even exists.

Try this:

If Dir$("App.Path & "\xx.txt"") <> vbNullString Then
   Open App.Path & "\xx.txt" For Input As #f 'file exists so open it
Else
   Open App.Path & "\xx.txt" For Append As #f 'file does not exist so create it
End If

[gavio]

You forgot the

On Error Resume Next

Gavio

Please, read Hack's post...

[mse07]

thank you for help me