Entering the file name in a text box if the filename exists

[samf]

Can anyone tell me the exact code
line by line
for entering the file name in a text box
and file exists
else msg box "File Not Found"

if a file name r.txt s entered in text box it should
display the message it exists else Not Found

Regds


Sam F.

[jennysmith]

This will only work in the current directory, will not search all drivers and directories!

Private Sub Command1_Click()
 
If Not (Len(Dir$(Text1.Text)) <> 0) Then
    MsgBox ("The File Does not exist")
Else
    MsgBox ("The File exists")
End If
 
End Sub

I hope its what you were looking for

[jennysmith]

I think this makes more sence

Private Sub Command1_Click()
 
If (Len(Dir$(Text1.Text)) = 0) Then
    MsgBox ("File Not Found")
Else
    MsgBox ("File Found")
End If
 
End Sub

[samf]

If (Len(Dir$(Text1.Text)) = 0) Then
MsgBox ("File Not Found")
Else
MsgBox ("File Found")
End If


whenever i type a anyting it gives MSGbox File Not Found

Regds

Sam F.

[jennysmith]

Originally posted by samf
If (Len(Dir$(Text1.Text)) = 0) Then
MsgBox ("File Not Found")
Else
MsgBox ("File Found")
End If


whenever i type a anyting it gives MSGbox File Not Found

Regds

Sam F.

This code will only detect the filename you type in the same directory you save this program in.