9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
22 lines
285 B
Plaintext
22 lines
285 B
Plaintext
|
|
#require "hbziparc"
|
|
|
|
PROCEDURE Main( cZip, ... )
|
|
|
|
LOCAL a, b, c
|
|
|
|
Set( _SET_DATEFORMAT, "yyyy-mm-dd" )
|
|
|
|
? hb_ZipFile( cZip, hb_AParams() )
|
|
|
|
a := hb_GetFilesInZip( cZip, .T. )
|
|
|
|
FOR EACH b IN a
|
|
?
|
|
FOR EACH c IN b
|
|
?? c, ""
|
|
NEXT
|
|
NEXT
|
|
|
|
RETURN
|