Define Class VFPScript As Session OLEPUBLIC Function ExecuteScript( cScript ) Local loErr Try =ExecScript(cScript) Catch to loErr ComReturnError(loErr.Message) EndTry EndFunc EndDefineThen, you can call it just like this:
oVfp = CreateObject("VFPUtil.VfpScript") Text To lcScript NoShow OPEN DATABASE insert-full-path-to-DBC EXCLUSIVE PACK DATABASE EndText oVfp.ExecuteScript( lcScript) oVfp = nullHTH
>oVFP = CREATEOBJECT('VisualFoxpro.Application.6') >oVFP.DoCmd('OPEN DATABASE insert-full-path-to-DBC EXCLUSIVE') >oVFP.DoCmd('PACK DATABASE') >RELEASE oVFP >>