[gdlrinfo]

Amigos a ver si alguien me puede dar una mano pongo el código y debajo explico.....

Código Delphi [-]
    ////ACA SALUD///
  if cb.Checked[0]then
   begin
   InputQuery('Presentación', 'Escriba la Presentación AAAAMMP:', a);
   if DirectoryExists('J:\Archivos\ACASALUD\'+ a+'\ADEM\')=True then
    Begin
   Zipp.FileName := 'J:\Archivos\ACASALUD\'+a+'\ADEM\'+'ACA SALUD '+a+'.zip';
   Zipp.OpenArchive(fmCreate);
   Zipp.BaseDir := 'J:\Archivos\ACASALUD\'+ a+'\ADEM\';
   Zipp.TempDir := 'J:\Archivos\ACASALUD\'+ a+'\ADEM\';
   Zipp.AddFiles('*.Txt');
   Zipp.CloseArchive;
    ProgressBar1.position:=10;
    Chdir('J:\Archivos\ACASALUD\'+ a+'\ADEM\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    WinExec('cmd /cRename *.lis *.txt', SW_SHOW);
        WinExec('cmd /cpdfcreator /pf"*.txt"', SW_SHOW);
    ShowMessage('No des Ok hasta que termine el PDF');
    CopiaTodo('C:\*.pdf', 'J:\Archivos\ACASALUD\'+ a+'\ADEM\');
    ProgressBAr1.position:=40;
         //WinExec('cmd /ctskill /a pdfcreator', SW_SHOW);
    chdir('C:');
    WinExec('cmd /cdel *.pdf', SW_SHOW)  ;
    Chdir('J:\Archivos\ACASALUD\'+ a+'\ADEM\');
    WinExec('cmd /cdel *.txt', SW_SHOW);
    ProgressBAr1.position:=50;
    Zipp.FileName := 'J:\Archivos\ACASALUD\'+a+'\ADEM\'+'ACA SALUD '+a+'.zip';
    Zipp.OpenArchive;
    Zipp.BaseDir := 'J:\Archivos\ACASALUD\'+ a+'\ADEM\';
    Zipp.TempDir := 'J:\Archivos\ACASALUD\'+ a+'\ADEM\';
    Zipp.AddFiles('*.pdf');
    Zipp.CloseArchive;
    WinExec('cmd /cdel *.pdf', SW_SHOW);
    End;

    ProgressBAr1.position:=60;
   if DirectoryExists('J:\Archivos\ACASALUD\'+ a+'\DISPROFA\')=True then
    Begin
    Zipp.FileName := 'J:\Archivos\ACASALUD\'+a+'\DISPROFA\'+'ACA SALUD '+a+'.zip';
    Zipp.OpenArchive(fmCreate);
    Zipp.BaseDir := 'J:\Archivos\ACASALUD\'+ a+'\DISPROFA\';
    Zipp.TempDir := 'J:\Archivos\ACASALUD\'+ a+'\DISPROFA\';
    Zipp.AddFiles('*.Txt');
    Zipp.CloseArchive;
    Chdir('J:\Archivos\ACASALUD\'+ a+'\DISPROFA\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    End;

    ProgressBAr1.position:=70;
    if DirectoryExists('J:\Archivos\ACASALUD\'+ a+'\FARMANET\')=True then
    Begin
    Zipp.FileName := 'J:\Archivos\ACASALUD\'+a+'\FARMANET\'+'ACA SALUD '+a+'.zip';
    Zipp.OpenArchive(fmCreate);
    Zipp.BaseDir := 'J:\Archivos\ACASALUD\'+ a+'\FARMANET\';
    Zipp.TempDir := 'J:\Archivos\ACASALUD\'+ a+'\FARMANET\';
    Zipp.AddFiles('*.Txt');
    Zipp.CloseArchive;
    Chdir('J:\Archivos\ACASALUD\'+ a+'\FARMANET\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    End;

    ProgressBAr1.position:=80;
    if DirectoryExists('J:\Archivos\ACASALUD\'+ a+'\GLOBALFA\')=True then
    Begin
    Zipp.FileName := 'J:\Archivos\ACASALUD\'+a+'\GLOBALFA\'+'ACA SALUD '+a+'.zip';
    Zipp.OpenArchive(fmCreate);
    Zipp.BaseDir := 'J:\Archivos\ACASALUD\'+ a+'\GLOBALFA\';
    Zipp.TempDir := 'J:\Archivos\ACASALUD\'+ a+'\GLOBALFA\';
    Zipp.AddFiles('*.Txt');
    Zipp.CloseArchive;
    Chdir('J:\Archivos\ACASALUD\'+ a+'\GLOBALFA\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    End;

    ProgressBAr1.position:=90;
    if DirectoryExists('J:\Archivos\ACASALUD\'+ a+'\ROFINA\')=True then
    Begin
    Zipp.FileName := 'J:\Archivos\ACASALUD\'+a+'\ROFINA\'+'ACA SALUD '+a+'.zip';
    Zipp.OpenArchive(fmCreate);
    Zipp.BaseDir := 'J:\Archivos\ACASALUD\'+ a+'\ROFINA\';
    Zipp.TempDir := 'J:\Archivos\ACASALUD\'+ a+'\ROFINA\';
    Zipp.AddFiles('*.Txt');
    Zipp.CloseArchive;
    Chdir('J:\Archivos\ACASALUD\'+ a+'\ROFINA\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    End;
    ProgressBAr1.position:=100;
   // WinExec('cmd /c RD C:\pagos /s /q ', SW_SHOW);
  //'J:\Archivos\ACASALUD\'+ Ediform.Edit1.Text+'\ADEM\';
  ShowMessage('Terminado ACA SALUD');
  cb.Checked[0]:=False;
   end;

  ///ASOCIART/////

  if cb.Checked[1]then
   begin
   InputQuery('Presentación', 'Escriba la Presentación AAAAMMP:', a);
   if DirectoryExists('J:\Archivos\ASOCIART\'+ a+'\ADEM\')=True then
   Begin
   Zipp.FileName := 'J:\Archivos\ASOCIART\'+a+'\ADEM\'+'ASOCIART '+a+'.zip';
   Zipp.OpenArchive(fmCreate);
   Zipp.BaseDir := 'J:\Archivos\ASOCIART\'+ a+'\ADEM\';
   Zipp.TempDir := 'J:\Archivos\ASOCIART\'+ a+'\ADEM\';
   Zipp.AddFiles('*.Txt');
   Zipp.CloseArchive;
    ProgressBar1.position:=10;
    Chdir('J:\Archivos\ASOCIART\'+ a+'\ADEM\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    WinExec('cmd /cRename *.lis *.txt', SW_SHOW);
        WinExec('cmd /cpdfcreator /pf"*.txt"', SW_SHOW);
    ShowMessage('No des Ok hasta que termine el PDF');
    CopiaTodo('C:\*.pdf', 'J:\Archivos\ASOCIART\'+ a+'\ADEM\');
    ProgressBAr1.position:=40;
    chdir('C:');
         //WinExec('cmd /ctskill /a pdfcreator', SW_SHOW);
    WinExec('cmd /cdel *.pdf', SW_SHOW)  ;
    Chdir('J:\Archivos\ASOCIART\'+ a+'\ADEM\');
    WinExec('cmd /cdel *.txt', SW_SHOW);
    ProgressBAr1.position:=50;
    Zipp.FileName := 'J:\Archivos\ASOCIART\'+a+'\ADEM\'+'ASOCIART '+a+'.zip';
    Zipp.OpenArchive;
    Zipp.BaseDir := 'J:\Archivos\ASOCIART\'+ a+'\ADEM\';
    Zipp.TempDir := 'J:\Archivos\ASOCIART\'+ a+'\ADEM\';
    Zipp.AddFiles('*.pdf');
    Zipp.CloseArchive;
    WinExec('cmd /cdel *.pdf', SW_SHOW);
   End;

    ProgressBAr1.position:=60;
    if DirectoryExists('J:\Archivos\ASOCIART\'+ a+'\DISPROFA\')=True then
    Begin
    Zipp.FileName := 'J:\Archivos\ASOCIART\'+a+'\DISPROFA\'+'ASOCIART '+a+'.zip';
    Zipp.OpenArchive(fmCreate);
    Zipp.BaseDir := 'J:\Archivos\ASOCIART\'+ a+'\DISPROFA\';
    Zipp.TempDir := 'J:\Archivos\ASOCIART\'+ a+'\DISPROFA\';
    Zipp.AddFiles('*.Txt');
    Zipp.CloseArchive;
    Chdir('J:\Archivos\ASOCIART\'+ a+'\DISPROFA\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    End;
    ProgressBAr1.position:=70;

    if DirectoryExists('J:\Archivos\ASOCIART\'+ a+'\FARMANET\')=True then
    Begin
    Zipp.FileName := 'J:\Archivos\ASOCIART\'+a+'\FARMANET\'+'ASOCIART '+a+'.zip';
    Zipp.OpenArchive(fmCreate);
    Zipp.BaseDir := 'J:\Archivos\ASOCIART\'+ a+'\FARMANET\';
    Zipp.TempDir := 'J:\Archivos\ASOCIART\'+ a+'\FARMANET\';
    Zipp.AddFiles('*.Txt');
    Zipp.CloseArchive;
    Chdir('J:\Archivos\ASOCIART\'+ a+'\FARMANET\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    End;

    ProgressBAr1.position:=80;

    if DirectoryExists('J:\Archivos\ASOCIART\'+ a+'\GLOBALFA\')=True then
    Begin
    Zipp.FileName := 'J:\Archivos\ASOCIART\'+a+'\GLOBALFA\'+'ASOCIART '+a+'.zip';
    Zipp.OpenArchive(fmCreate);
    Zipp.BaseDir := 'J:\Archivos\ASOCIART\'+ a+'\GLOBALFA\';
    Zipp.TempDir := 'J:\Archivos\ASOCIART\'+ a+'\GLOBALFA\';
    Zipp.AddFiles('*.Txt');
    Zipp.CloseArchive;
    Chdir('J:\Archivos\ASOCIART\'+ a+'\GLOBALFA\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    End;

    ProgressBAr1.position:=90;

    if DirectoryExists('J:\Archivos\ASOCIART\'+ a+'\ROFINA\')=True then
    Begin
    Zipp.FileName := 'J:\Archivos\ASOCIART\'+a+'\ROFINA\'+'ASOCIART '+a+'.zip';
    Zipp.OpenArchive(fmCreate);
    Zipp.BaseDir := 'J:\Archivos\ASOCIART\'+ a+'\ROFINA\';
    Zipp.TempDir := 'J:\Archivos\ASOCIART\'+ a+'\ROFINA\';
    Zipp.AddFiles('*.Txt');
    Zipp.CloseArchive;
    Chdir('J:\Archivos\ASOCIART\'+ a+'\ROFINA\');
    WinExec('cmd /cdel *.txt', SW_SHOW)  ;
    End;


    ProgressBAr1.position:=100;
    ShowMessage('Terminado ASOCIART');
  cb.Checked[1]:=False;
   // WinExec('cmd /c RD C:\pagos /s /q ', SW_SHOW);
  //'J:\Archivos\ACASALUD\'+ Ediform.Edit1.Text+'\ADEM\';
 end;

Sucede que tenemos unas carpetas donde hay txt estos tenemos que compactarlos y borrar los archivos que hay por fuera, entonces quedan unos archivos *.lis que son renombrados como *.txt para que el pdfcreator me los genere ya que no lee *.lis el problema es que cuando genera los pdf a veces me copia menos de los que debía generar y no encuentro el motivo también este proceso consta de 26 check no solo dos como esta en el ejemplo que mando y por cada check esta el proceso escrito podría simplificarse mas eso ? bueno espero que se entienda y desde ya muchas gracias como siempre....