I have this code which has been used several times but when I copied it to a new Access database, it fails with "Compile Error: Sub or Function Not Defined" at 'Pause (1.5)'. Can you please advise why this might be happening?
Public Function ZipOut()
Dim oApp As Object
Set oApp = CreateObject("Shell.Application")
oApp.NameSpace([filepath] & [zipname].zip").CopyHere [filepath] & [Inputfilename].txt"
Pause (1.5) 'for one and a half second pause
Set oApp1 = Nothing