File Path VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. File Path
  4. 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