Este código mostra como compactar o banco de dados de um arquivo Access (MDB) através de código ASP, a função retorna a string “OK” caso seja executada com sucesso.
Os parametros da função são respectivamente:
– O caminho de origem do arquivo mdb.
– O caminho de destino do arquivo mdb compactado.
0 Then
CompactaMDB = Err.description
Else
'Retorno da Funcao
CompactaMDB = "OK"
End If
End Function
%>
