'Start a new project and add
'	Label
'	TextBox
'	CommandButton
'
' put them anywhere and don't rename them
'
' Paste the following code into (General)(declarations)
'
' Checks a file to see if it exists


Private Sub Form_Load()
    
    label1.Caption = "Enter a file name in the textbox then Press Verify"
    label1.Left = 100
    label1.Top = 100
    label1.Width = Me.Width
    Text1.Text = "C:\autoexec.bat"
    Text1.Left = label1.Left
    Text1.Top = label1.Top + 100 + label1.Height
    Text1.Width = Me.Width
    Command1.Caption = "Verify"
    Command1.Left = label1.Left
    Command1.Top = Text1.Top + Text1.Height + 100
        
End Sub

Private Sub Command1_Click()

    FileExists = (Dir(Text1.Text) <> "")
    
    Select Case True
    
        Case FileExists
            MsgBox (Text1.Text & " exists")
            
        Case Else
            MsgBox (Text1.Text & " does not exist or is not a valid file name")
            
    End Select
            
    
End Sub