Mega Code Archive

 

Categories / VisualBasic Script / File Path

 

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