* Go local to the default GET ZIP folder >CD (["]+ucRootDirectory+["]) && Assure root >CD (["]+FULLPATH(ucGetZip_Path)+["]) && ucGetZip_Path=Zip "pickup" folder >ucGetUnZipFilePath=GETFILE([ZIP],[Default 'GET' zip folder],[Get Zip],0,[Select ZIP File]) >ucWZC_Path="C:\PROGRAM FILES\WINZIP\" >lcUnZipFileName=JUSTFNAME(ucGetUnZipFilePath) >lcUnZipPathName=JUSTPATH(ucGetUnZipFilePath)+[\] >* Go local to the final resting place of the zip file >CD (["]+lcZipToFullPathFolder+["]) && Go local to zips arhive root folder. >cUnZipToFolder=SET('DIRE') && Make sure VFP is in the tube >oWS=newOBJECT("WScript.Shell") >oWS.Run(["]+ucWzc_Path+[wzunzip" -d ]+ucGetUnZipFilePath+[ "]+cUnZipToFolder+[\"],1,.t.)>