Hello,
I found this here:
Public sub subCompact()
On Error goto Err_subCompact
Dim fs, f, ProjectSize, filespec
Dim strProjectPath As String, strProjectName As String
strProjectPath = Application.CurrentProject.Path
strProjectName = Application.CurrentProject.Name
filespec = strProjectPath...