HMGforum.com

Code: Select all

	LOCAL cDir:="c:\hmg.3.4.4\samples\misce\datos\"

Code: Select all

	LOCAL cDir:="datos\"

Code: Select all

#include "hmg.ch"

Function main()
LOCAL cDir:="d:\cursos\misce\datos\"      // Cargo donde están los datos, mejor con GETFOLDER()
LOCAL ac_Dir:=GetCurrentFolder()            //-> Me quedo el directorio donde trabajo
	
	DEFINE WINDOW form_1 ; 
		AT 114,218 ;
		WIDTH 334 ;
		HEIGHT 276 ; 
		TITLE 'ZIP TEST' ; 
		MAIN 

		DEFINE MAIN MENU

			DEFINE POPUP "Test"
				MENUITEM 'Create Zip' ACTION CreateZip(cDir,AC_DIR)
			END POPUP

		END MENU

		@ 80,120 PROGRESSBAR Progress_1 RANGE 0,10 SMOOTH

		@ 120,120 LABEL label_1 VALUE ''


	END WINDOW 

	form_1.center
	form_1.activate

Return NIL

*------------------------------------------------------------------------------*
Function CreateZip(cDir,AC_DIR)
*------------------------------------------------------------------------------*
local aDir:=Directory(cDir+"*.txt")
local afiles:={}
Local x
local nLen
LOCAL lCambio:=.f.

         // --> Si he cambiado de unidad...
	IF SUBSTR(AC_DIR,1,1)!=SUBSTR(cDir,1,1)
		lcambio:=.t.
		dirchange(cDir)
		msgbox("cambio a "+GetCurrentFolder() )
	ENDIF
	// --> Esto es por si alguno no viene sin unidad
	IF SUBSTR(cDir,2,1)=":"
		cDir:=SUBSTR(cDir,3)
	ENDIF

	For x:=1 to len(aDir)
	 	aadd(afiles,cDir+adir[x,1])
		msgbox(aFiles[x])
	next
	nLen=len(afiles)
    Form_1.Progress_1.RangeMin := 0
    Form_1.Progress_1.RangeMax := nLen

	COMPRESS afiles ;
		TO 'ZipTest.Zip' ;
		BLOCK {|cFile,nPos| ProgressUpdate( nPos , cFile ) }  ;
		OVERWRITE

	IF lCambio   // regreso donde estaba
		dirchange(ac_dir)
		msgbox("regreso a "+GetCurrentFolder() )
	endif
		
		
Return nil

*------------------------------------------------------------------------------*
function ProgressUpdate(nPos , cFile )
*------------------------------------------------------------------------------*

	Form_1.Progress_1.Value := nPos
	Form_1.Label_1.Value := cFile

Return Nil

Code: Select all

local cPath := 'd:\misarchivos'
local aDir := Directory( cPath+'\*.txt')
local aArchivos := {}

For i := 1 to Len( aDir )
  aadd( aArchivos, cPath + '\' + aDir[ i ][ 1 ] )
Next