I am seeking a way to put all of the files in my directory/folder (C:\My_Stuff) into a winzip file using or making a winzip file using Visual Fox Pro. I do not want to manual open Winzip and do it manuely, I want to do it using fox pro code. Put all the files in the directory into a winzip file and save it with a file name: "My_Stuff.zip"

I can see the files in my directory/folder using the code below.

gnDbcnumber = ADIR(gaDatabase, '*.*') && Create array

CLEAR
FOR nCount = 1 TO gnDbcnumber && Loop for number of databases
? gaDatabase(nCount,1) && Display database names
ENDFOR

If any has done this I would greatly appreciate your assistance and help on how to accomplish this task.


Thank You in Advance and Merry Christmas and Happy New Year to All.


Winfred Majors