[Resoved] Text Reader Help

[Mick Grey]

hi!
i have a Text Editing software where i can load any .txt file.
this works perfectly just i want to get rid of the error message " file cannot be found" and replace it with a msg box saying some thing like "Windows cannot fild the file "abc" , please make sure you have typed the name correctly."
here is the code i have created

Private Sub cmdLoad_Click()
 
Dim strName As String
Dim strFile As String
Dim strTemp As String
 
    strName = InputBox("Filename:") ' file name to load
    Open "C:\" & strName & ".txt" For Input As #1 ' loaded file
        strFile = ""
            Do Until EOF(1)
                    Line Input #1, strTemp
                    strFile = strFile & strTemp & vbCrLf
            Loop
            txtout.Text = strFile 'print file to textbox
    Close #1
 
End Sub

Thx in advance!!

[westconn1]

strName = InputBox("Filename:")
if dir(strname) = "" then 'file not found
     msgbox "File " & strname & " Not found"
     exit sub
end if
' rest of your code

[Mick Grey]

Sorry but that didnt work
instead of the msg box poping up when it cant find a file it popups eveytime even the file is located in c:\ and nothing comes up in the text box this is how i placed ur code.
Sorry for the Trouble im still a noob with VB!!

Private Sub cmdLoad_Click()
 
Dim strName As String
Dim strFile As String
Dim strTemp As String
 
strName = InputBox("Filename:")
if dir(strname) = "" then 'file not found
     msgbox "File " & strname & " Not found"
     exit sub
end if
    Open "C:\" & strName & ".txt" For Input As #1 ' loaded file
        strFile = ""
            Do Until EOF(1)
                    Line Input #1, strTemp
                    strFile = strFile & strTemp & vbCrLf
            Loop
            txtout.Text = strFile 'print file to textbox
    Close #1
  
End Sub

ive also tryed other ways like this:

strName = InputBox("Filename:") ' file name to load
    Open "C:\" & strName & ".txt" For Input As #1 ' loaded file
        strFile = ""
If Dir(strName) = "" Then 'file not found
     MsgBox "File " & strName & " Not found"
     Exit Sub
  End If
'rest of the code

[westconn1]

strName = InputBox("Filename:")
[B]strName = "C:\" & strName & ".txt"[/B]
 
If Dir(strName) = "" Then 'file not found
     MsgBox "File " & strName & " Not found"
     Exit Sub
End If
    [B]Open strName For [/B]Input As #1  ' loaded file
        strFile = ""
            Do Until EOF(1)

a small change, you need to have the full name for the file in the string

[Mick Grey]

thx , fix it
thx forthe fast reply too

[Keithuk]

Just use a CommonDialog its easier.