Hola tenia esto pendiente,
Baje el archivo de "Backup & Restore Dbf Files" y funciona correctamente.
Ahora mi consulta es la siguiente
Estoy usando CompressFiles
Cuando hago copia de los archivos de una carpeta c:\bases por ejemplo me lo comprime correctamente.
Ahora si c:\bases contiene otras carpetas no me lo copia en el ZIP.
Que instrucción tengo que agregar para que copie otras carpetas?
Gracias
Claudio
CompressFiles
Moderator: Rathinagiri
- salamandra
- Posts: 311
- Joined: Thu Jul 31, 2008 8:33 pm
- DBs Used: DBF, MySQL, SQL
- Location: Brazil
Re: CompressFiles
![Smile :)](./images/smilies/icon_e_smile.gif)
Take a look at HMG\SAMPLES\ZIP .OR. try the following code:claudiotedesco wrote: Ahora si c:\bases contiene otras carpetas no me lo copia en el ZIP.
Que instrucción tengo que agregar para que copie otras carpetas?
// =================================================
#include <minigui.ch>
Function Main()
Local k, aFiles:=Directory("*.dbf","D"), myFiles:={}
If Len(aFiles) <=0
MsgStop("Sorry, wrong path specified or no files to compress !!")
else
For k:=1 to Len(aFiles)
AADD( myFiles, aFiles[k,1] ) // Add FileNames only
Next k
COMPRESS myFiles ;
TO "test00.zip" ;
BLOCK {|| NIL} ; // Use your own Block here
OVERWRITE
endif
Return Nil
// =================================================
For further and detailed information about (x)Hb Function DIRECTORY(), please
refer to (x)Harbour Guide.
Best regards,
Salamandra
There is one time in which is crucial awakening. That time is now. ( Buddha )
-
- Posts: 132
- Joined: Thu Jul 31, 2008 12:05 pm
Re: CompressFiles
Hola Salamandra
estuve probando el ejemplo, me guarda en el ZIP los archivos y las carpetas pero no el contenido que hay en ella.
Hay otro opción que agregar?
Hello Salamandra
I was testing your example, I saved in the ZIP files and folders but no content in it.
There is another option to add?
estuve probando el ejemplo, me guarda en el ZIP los archivos y las carpetas pero no el contenido que hay en ella.
Hay otro opción que agregar?
Hello Salamandra
I was testing your example, I saved in the ZIP files and folders but no content in it.
There is another option to add?
- salamandra
- Posts: 311
- Joined: Thu Jul 31, 2008 8:33 pm
- DBs Used: DBF, MySQL, SQL
- Location: Brazil
Re: CompressFiles
Hi claudiotedesco,
subarray contains information about each file matching <cDirSpec>.
Arguments:
<cDirSpec>
Identifies the drive, directory and file specification for the directory search.
Wildcards (*.*) are allowed in the file specification.
<cAttributes>
Attribute...............Meaning
H..........................Include hidden files
S..........................Include system files
D..........................Include directories
V..........................Search for the DOS volume label and exclude all other files.
** Normal files are always included in the search, unless you specify V.
This is the Returned SubArray Structure:
Position...Metasymbol.....Directry.ch
1.............cName..............F_NAME
2.............cSize................F_SIZE
3.............dDate..............F_DATE
4.............cTime...............F_TIME
5.............cAttributes.......F_ATTR
If no files are found matching <cDirSpec> or if <cDirSpec> is an illegalpath
or file specification, DIRECTORY() returns an empty ({}) array.
Example :
aFiles:=DIRECTORY("C:\MyFiles\*.dbf","D")
(will retrieve ALL *.DBF files in C:\MyFiles including existing directories)
If C:\MyFiles it's not an illegall path .AND. if C:\MyFiles it's not a EMPTY FOLDER,
aFiles will be an Array of of subarrays, which each subarray contains:
NAME, SIZE, DATE, TIME and FILE ATTRIBUTES of each file found matching your criteria.
I use this function to retrieve files (*.*) in folders and works fine for me...
Regards,
Salamandra
Function DIRECTORY(<cDirSpec>, [<cAttributes>]) returns an array of subarrays, with eachI was testing your example, I saved in the ZIP files and folders but no content in it.
There is another option to add?
subarray contains information about each file matching <cDirSpec>.
Arguments:
<cDirSpec>
Identifies the drive, directory and file specification for the directory search.
Wildcards (*.*) are allowed in the file specification.
<cAttributes>
Attribute...............Meaning
H..........................Include hidden files
S..........................Include system files
D..........................Include directories
V..........................Search for the DOS volume label and exclude all other files.
** Normal files are always included in the search, unless you specify V.
This is the Returned SubArray Structure:
Position...Metasymbol.....Directry.ch
1.............cName..............F_NAME
2.............cSize................F_SIZE
3.............dDate..............F_DATE
4.............cTime...............F_TIME
5.............cAttributes.......F_ATTR
If no files are found matching <cDirSpec> or if <cDirSpec> is an illegalpath
or file specification, DIRECTORY() returns an empty ({}) array.
Example :
aFiles:=DIRECTORY("C:\MyFiles\*.dbf","D")
(will retrieve ALL *.DBF files in C:\MyFiles including existing directories)
If C:\MyFiles it's not an illegall path .AND. if C:\MyFiles it's not a EMPTY FOLDER,
aFiles will be an Array of of subarrays, which each subarray contains:
NAME, SIZE, DATE, TIME and FILE ATTRIBUTES of each file found matching your criteria.
I use this function to retrieve files (*.*) in folders and works fine for me...
Regards,
Salamandra
There is one time in which is crucial awakening. That time is now. ( Buddha )