>Can anybody tell me how you would create an XP compressed folder from within VFP?

Never mind! It's really pretty simple:

ofs = CREATEOBJECT("Scripting.FileSystemObject")
ofs.CreateTextFile("C:\test.zip")

or even

STRTOFILE("","c:\test2.zip")