Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   OOP (https://www.clubdelphi.com/foros/forumdisplay.php?f=5)
-   -   ZipForge incluye subdirectorios que no debería incluir (https://www.clubdelphi.com/foros/showthread.php?t=79803)

Tortuguica 11-08-2012 17:49:48

ZipForge incluye subdirectorios que no debería incluir
 
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.

Tortuguica 11-08-2012 18:02:42

Vale, perdón, ya he hallado la solución: hay que incluir la instruccion

Código:

Options.StorePath:=spNoPath;
y ya está.

Casimiro Notevi 11-08-2012 20:12:09

Cita:

Empezado por Tortuguica (Mensaje 439378)
Vale, perdón, ya he hallado la solución: hay que incluir la instruccion

Código:

Options.StorePath:=spNoPath;
y ya está.


..........^\||/


La franja horaria es GMT +2. Ahora son las 09:52:05.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi