Hola a todo el foro. Os escribo para ver si podéis echarme una mano. Tengo el siguiente código:
Código:
procedure comprimir;
var
filepath, tmptpath, setpath, dbpath, tempdir, zipdir: String;
begin
filepath:=ExtractFilePath(Application.ExeName);
//Indico dónde están los archivos que quiero incluir en el zip.
tmptpath:=filepath+'tmpts\1.tmpt';
setpath:=filepath+'branchw\xmset\settings.ini';
dbpath:=filepath+'branchw\db\pupils.flc';
destpath:=laDirectorio.Caption; //Directorio de destino del zip final, elegido por el usuario.
tempdir:=destpath+'\tmp\'; //Subdirectorio temporal que creo dentro del directorio de destino con el objeto
//de alojar los archivos a incluir.
CreateDir(tempdir);
zipdir:=tempdir+'zip\';//Subdirectorio para alojar temporalmente el zip. Esto lo hago así porque, si el directorio de
//destino del zip es el mismo donde se encuentran los archivos, ZipForge no crea el zip.
CreateDir(zipdir);
//En las siguientes tres instrucciones, copio los archivos y me los traigo al subdirectorio 'tmp' creado dentro del
//directorio de destino del zip.
CopyFile(PWideChar(tmptpath), PWideChar(tempdir+'1.tmpt'), False);
CopyFile(PWideChar(setpath), PWideChar(tempdir+'settings.ini'), False);
CopyFile(PWideChar(dbpath), PWideChar(tempdir+'pupils.flc'), False);
//Cuando ya tengo todos los archivos que necesito en una misma carpeta, los comprimo.
with zfXR do
begin
FileName:=zipdir+'tpset.zip';
OpenArchive(fmCreate);
BaseDir:= tempdir;
TempDir:= tempdir;
AddFiles('*.tmpt');
AddFiles('*.ini');
AddFiles('*.flc');
CloseArchive;
end;
end;
Y, efectivamente, crea el zip, pero incluye dentro del mismo los subdirectorios primitivos de los archivos, y no todos. Me explico: una vez creado el zip, yo debería descomprimirlo y encontrar los archivos
'1.tmpt', 'settings.ini' y 'pupils.flc'. Sin embargo, cuando lo descomprimo me aparecen los directorios 'tmpts' y 'branch'. Dentro del primer directorio se encuentra el archivo '1.tmpt' y dentro del segundo directorio están los subdirectorios 'xmset' y 'db', que alojan los archivos 'settings.ini' y 'pupils.flc' respectivamente.
Perdón por todo el rollo que os he metido, aunque espero haberme explicado bien. ¿Sabe alguien qué puedo hacer para que no me incluya todos esos directorios (los que he remarcado en rojo) y se limite a incorporar los archivos?
Gracias por adelantado.