[RESOLVED] message box error

[matrik02]

I try to find the filename in the directory by input the filename in the textbox.
But When user don't put the anyting in the text1, I got the message MsgBox "File not found" . I don't want to get the message like this.
I want the message box appear like this MsgBox "please input you filename" . How to do that?

The message box "File not found" only appear when the filename did not found in the directory

If Ret = 0 And ret2 = 0 Then MsgBox "File not found"

Private Sub Command1_Click() ' search button. When the file name found.It and display it in the listview
    Dim tempstr As String, Ret As Long
    tempstr = String(MAX_PATH, 0)
    'returns 1 when successfull, 0 when failed

Ret = SearchTreeForFile("C:\Project\Data\", Text1.Text + ".shp", tempstr)
If Ret <> 0 Then Call Insertsub(tempstr)
ret2 = SearchTreeForFile("C:\Project\Data\", Text1.Text + ".img", tempstr)
If ret2 <> 0 Then Call Insertsub(tempstr)

If Ret = 0 And ret2 = 0 Then MsgBox "File not found"

End Sub

Private Sub Insertsub(tempstr As String)
Dim i As Long
Dim sName() As String
Dim sPath As String
sName = Split(tempstr, "\") 'contains File name'

Dim lvItem As ListItem

Set lvItem = ListView1.ListItems.Add(, , sName(UBound(sName)))
    lvItem.ListSubItems.Add , , "" & Left$(tempstr, InStr(1, tempstr, Chr$(0)) - 1)
    
'call the for to remove the filename extension for example lot.shp become lot and use to display the legend
Text2.Text = FileTitleNoExt(sName(UBound(sName)))
'get the path location from searching file
Text3.Text = GetDirFromFile(tempstr)
End Sub

[MartinLiss]

Private Sub Command1_Click() ' search button. When the file name found.It and display it in the listview
    Dim tempstr As String, Ret As Long
    tempstr = String(MAX_PATH, 0)
    'returns 1 when successfull, 0 when failed
If Trim(Text1.Text) = "" Then
    ' Your message here
    Exit Sub
End If
Ret = SearchTreeForFile("C:\Project\Data\", Text1.Text + ".shp", tempstr)
If Ret <> 0 Then Call Insertsub(tempstr)
ret2 = SearchTreeForFile("C:\Project\Data\", Text1.Text + ".img", tempstr)
If ret2 <> 0 Then Call Insertsub(tempstr)

If Ret = 0 And ret2 = 0 Then MsgBox "File not found"

End Sub

[matrik02]

Thank you martin.It succeed But I have two questions what is the difference between If Trim(Text1.Text) = "" and If Text1.Text = ""

What is trim function?could you give me some example?

If Trim(Text1.Text) = "" Then
    ' Your message here
    Exit Sub
End If

[smUX]

Trim() is exactly that, it "trims" your string...ltrim() and rtrim() trims spaces from the left and right respectively, while trim() trims from both sides.

His code basically checks to make sure that the string isn't *just* spaces :-)