Compact Database

prøv


Public Sub KomprimerAccess(DatabaseSti As String)

Dim fso As New FileSystemObject
Dim engine As Object

Set fso = CreateObject(\"Scripting.FileSystemObject\")
Set engine = CreateObject(\"DAO.DBEngine.35\")

Dim D2 As String

On Error Resume Next
D2 = Left$(DatabaseSti, Len(DatabaseSti) - 4)

D2 = D2 & \"T\" & \".mdb\"


engine.CompactDatabase DatabaseSti, D2
 
fso.DeleteFile DatabaseSti
fso.MoveFile D2, DatabaseSti

Set fso = Nothing
Set engine = Nothing

End Sub

Mvh
Jens