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

Delete a file

   <source lang="vb">

Sub CompactRepairDB()

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

End Sub

</source>
   
  

Error trap

   <source lang="vb">

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

</source>