Проверить существование файла

"объект_т" + MyName + ".xls"

Sub test()
res = FileExist("объект_т" + MyName + ".xls")
End Sub
 
Function FileExist(filename As String) As Boolean
    On Error Resume Next
    FileExist = Dir$(filename) <> ""
    If Err.Number <> 0 Then FileExist = False
    On Error GoTo 0
End Function

Sub DeleteFile1(ByVal strTarget As String)
 
   If FileExists(strTarget) Then 
     
   MsgBox ("Файл существует" & strTarget), vbInformation
Else
   MsgBox ("Файл не существует"), vbCritical
End If
End Sub

strTarget = "s:\mail\Ext1_34.mdb"
MsgBox (strTarget), vbInformation
DeleteFile1 (strTarget)

strTarget = "s:\mail\Ext1_34.mdb"
If Dir(strTarget) <> "" Then
MsgBox ("Файл существует" & strTarget), vbInformation
End If

Sub DeleteFile1(ByVal strTarget As String)
 
   If Not Dir(strTarget) = "" Then
      Kill (strTarget)
      MsgBox ("Старый файл удален " & strTarget), vbInformation
 
End If
End Sub

on error resume next
    Kill (strTarget)
    if err then
      MsgBox "ERROR!"
'      err.clear
'      GOTO куда_следует
    else
      MsgBox ("Старый файл удален " & strTarget), vbInformation
    endif
on error goto 0