HMGforum.com

Code: Select all

*------------------------------------------------------------------------------*
Function CreateZip()
*------------------------------------------------------------------------------*
Local directorio
local aDir:=Directory("DATEN\*.*" )
local aDirFotos:=Directory("images\*.*")
local aDirDocs :=Directory("Docs\*.*", "D")   //*********** Le añado la "D" para que copie los directorios del mismo  // I add the "D" so I copy the same directories
local afiles:={}
Local x
local nLen
local fechacopia:="\GBKP"+"-"+ltrim(str(day(date())))+"-"+ltrim(str(month(date())))+"-"+ltrim(str(year(date())))+".ZIP"

directorio := GetFolder("Seleccione donde quiere guardar la Copia")

IF directorio == ""
    MSGINFO("Acción Cancelada","Copias de Seguridad")
    CopiSeg.Release
    Retu Nil
 ELSE
        CloseTable()

	For x:=1 to len(aDir)
	    aadd(afiles,"DATEN\"+adir[x,1])
	next

	For x:=1 to len(aDirFotos)
	    aadd(afiles,"images\"+adirFotos[x,1])
	next
	
	For x:=1 to len(aDirDocs)                               //*****  Este es que me falla ya que lleva subdirectorios // This is because it takes me misses subdirectories
	    aadd(afiles,"Docs\"+adirDocs[x,1])
	next

	COMPRESS afiles ;
	TO directorio+fechacopia ;
		BLOCK {|cFile,nPos| ProgressUpdate( nPos , cFile ) }  ;
		OVERWRITE
		OpenTable()

		IF FILE(directorio+fechacopia)
			MSGINFO("Por favor compruebe que la copia de seguridad ha sido guardada"+CRLF+"en "+directorio+fechacopia+" con la fecha y hora actual.","Copia de Seguridad")
		ELSE
			MSGSTOP("¡¡ ERROR No se ha podido guardar la copia"+CRLF+"en la ubicación seleccionada ¡¡","¡¡ ERROR ¡¡ - Copia de Seguridad")
		ENDIF
ENDIF

CopiSeg.Release

Return nil

Code: Select all

    For x:=1 to len(aDirDocs)  //* Este es que me falla ya que lleva subdirectorios // This is because it takes me misses subdirectories
        aadd(afiles,"Docs\"+adirDocs[x,1])
    next
*-------------------------------------------
    aSDir1:=Directory("Docs\SubDir1\*.*" )
    For x:=1 to len(aSDir1)
        aadd(afiles,"Docs\"+aSDir1[x,1])
    next
    aSDir2:=Directory("Docs\SubDir2\*.*" )
    For x:=1 to len(aSDir2)
        aadd(afiles,"Docs\"+aSDir2[x,1])
    next
    ...
    ...
*--------------------------------------------

Code: Select all

    aNomDir :=Directory("Docs\", "D")
    For y:=1 to len(aNomDir)
        aSDir1:=Directory("Docs\"+aNomDir[y,1]+"\*.*" )
        For x:=1 to len(aSDir1)
            aadd(afiles,"Docs\"+aSDir1[x,1])
        next
    next

Code: Select all

//------------------------------------------------------------------//
PROCEDURE _aSubFolders( cRootFolder, aFolders )  // recursive subFolders aggregation
	local _aFolders := {}, _aDir := Directory( cRootFolder + '\' , 'D' )
	aeval( _aDir, { |x| IF( 'D' $ x[F_ATTR] .and. !('.' $ x[F_NAME]), aadd( _aFolders, x ), Nil ) } )
	if LEN( _aFolders ) > 0
		aeval( _aFolders, { |x| aadd( aFolders, cRootFolder + '\' + x[F_NAME] ),  _aSubFolders( cRootFolder + '\' + x[F_NAME], @aFolders ) } )
	endif
RETURN

Code: Select all

Arguments
<cPath> is directory to scan, if not given current dir is used.
<cMask> is wild mask for directory entries (files, links, subdirs, ...) which should be returned in results. By default all entries are included.
<cAttr> is attribute mask which works like 2-nd parameter in directory() function, i.e. if you want to include directories in result then you should add "D" to passed attributes otherwise only files are included.

Returns
return array multidimensional similar to directory()

Examples
Just test it, i.e.:
   aeval( hb_dirscan(), {|x| qout( x ) } )
   wait
   aeval( hb_dirscan( , "D" ), {|x| qout( x ) } )
   wait

------------

hb_DirScan( "c:\prog\ighoo\ighdoc\", "*.prg", "A" )

Return:
(A)(2)
    1) (A)(----5)
          1) (C)(---16) = Bak\errorsys.prg
          2) (N)(----5) = 27119
          3) (D) 05/21/11 
          4) (C)(----8) = 12:23:14
          5) (C)(----1) = A
    2) (A)(----5)
          1) (C)(---15) = ighdoc.prg
          2) (N)(----4) = 96300
          3) (D) 09/24/12 
          4) (C)(----8) = 13:45:56
          5) (C)(----1) = A

Code: Select all

local aDirDocs :=Directory("Docs\*.*" ,"D") , aSubdirDocs := {} , aFilesDirDocs , cDire

For i := 1 to len (aDirDocs)
	 	cDire := ALLTRIM(STRTRAN( aDirDocs[i,1] , "." ,"" ))
		IF len(cDire)  <> 0
			aadd(aSubdirDocs,cDire)
		ENDIF
	Next
	
	For i := 1 to len (aSubdirDocs)
		aadd(afiles,"Docs\"+aSubdirDocs[i])
		aFilesDirDocs :=Directory("Docs\"+aSubdirDocs[i]+"\*.*" )
	
		For n := 1 to len (aFilesDirDocs)
			aadd(afiles,"Docs\"+aSubdirDocs[i]+"\"+aFilesDirDocs[n,1])
		Next
	Next

Code: Select all

local aDirDocs :=Directory("Docs\*.*" ,"D") , aSubdirDocs := {} , aFilesDirDocs , cDire , i, n

For i := 1 to len (aDirDocs)
	 			cDire := ALLTRIM(STRTRAN( aDirDocs[i,1] , "." ,"" ))
				IF len(cDire)  <> 0
					aadd(aSubdirDocs,cDire)
				ENDIF
			Next
	
			For i := 1 to len (aSubdirDocs)
				aFilesDirDocs :=Directory("Docs\"+aSubdirDocs[i]+"\*.*" )
	
				For n := 1 to len (aFilesDirDocs)
					DELETE FILE ("Docs\"+aSubdirDocs[i]+"\"+aFilesDirDocs[n,1])
				Next
				DIRREMOVE ( "Docs\"+aSubdirDocs[i])
			Next