Is it possible to compact database from a web page?

[Kenos]

Hello All,

Is it possible to compact an Access database from a web page?
I have searched and have not found anything on this
Subject

Thanks In Advance

 

[baddos]

This should work for you. I do this on a website of mine.
<%
Dim objJet, objFSO, objFile, strDBFile, strDestFile
Dim strConnect, strDestConnect
strDBFile = Server.MapPath(&quot;/db/ShopDb.mdb&quot
strDestFile = Server.MapPath(&quot;/db/dest.mdb&quot
strConnect = &quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=&quot; & Server.MapPath(&quot;/db/ShopDB.mdb&quot
strDestConnect = &quot;PROVIDER=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=&quot; & Server.MapPath(&quot;/db/dest.mdb&quot
Set objFSO = Server.CreateObject(&quot;Scripting.FileSystemObject&quot
Set objFile = objFSO.GetFile(strDBFile)
Response.Write &quot;<tr><td>Database file size <b>before</b> compatcing: &quot;& FormatNumber(objFile.Size, 0) &&quot; bytes</td></tr>&quot;
Set objFile = Nothing
Set objFSO = Nothing
Set objJet = Server.CreateObject(&quot;JRO.JetEngine&quot
objJet.CompactDatabase strConnect, strDestConnect
Set objJet = Nothing
Set objFSO = Server.CreateObject(&quot;Scripting.FileSystemObject&quot
Set objFile = objFSO.GetFile(strDBFile)
objFile.Delete
objFSO.MoveFile strDestFile, strDBFile
Set objFile = objFSO.GetFile(strDBFile)
Response.Write &quot;Database file size <b>after</b> compatcing: &quot;& FormatNumber(objFile.Size, 0) &&quot; bytes&quot;
Set objFile = Nothing
Set objFSO = Nothing
%>

 

[Kenos]

Thank You baddos

This is Great.