VFP 愛用者社區

[goto-dream]

來源 http://www.tek-tips.com/faqs.cfm?fid=5113
cFileZip = "C:\temp2\D401001F.ZIP"
cSource = "c:\temp1\"
strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip)
o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cSource).items
o.NameSpace(cFileZip).copyhere(ofile)
ENDFOR

[garfield]

*同一資料來源, 本功能只能用於 windows XP
Note this requires Windows XP or higher

This was posted on a French newsgroup by Thierry (unknown last name)

Zip files

* The directories must be valid


CODE
cFileZip = "C:\temp2\D401001F.ZIP"
cSource = "c:\temp1\"
strtofile(chr(0x50)+chr(0x4B)+chr(0x05)+chr(0x06)+replicate(chr(0),18),cFileZip)
o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cSource).items
o.NameSpace(cFileZip).copyhere(ofile)
ENDFOR


Unzip files


CODE
cFileZip = "C:\temp\D401001F.ZIP"
cDestination = "c:\temp\"

o=CREATEOBJECT("shell.application")
FOR EACH ofile IN o.NameSpace(cFileZip).items
o.NameSpace(cDestination).copyhere(ofile)
ENDFOR

[goto-dream]

可以說明一下，此功能為何可以列入精華？

[garfield]

新的, 有用的 , 精彩的 , 個人偏見的^^,
都會列入精華.