VBA/Excel/Access/Word/File Path/Kill

Delete a file

 
Sub CompactRepairDB()
    Dim strFilePath As String
    strFilePath = CurrentProject.Path
    If Len(Dir(strFilePath & "\Small.mdb")) Then
        Kill strFilePath & "\Small.mdb"
    End If
End Sub

Error trap

 
Public Sub ErrorTrap2()
  Dim MyFile As String, Message As String
  Dim Answer As String
  On Error GoTo errorTrap
  Workbooks.Add
  MyFile = "C:\Data.xls"
  Kill MyFile
  ActiveWorkbook.SaveAs FileName:=MyFile
  ActiveWorkbook.Close
  Exit Sub
errorTrap:
  Debug.Print "Error No: = " & Err.Number
  Debug.Print Err.Description
  Debug.Print "File does not exist"
  Resume Next
End Sub