Deletar qvds através do script

[Anonymous]

Boa tarde amigos do fórum. Gostaria de tirar uma dúvida com vocês, se é possível deletar qvds externos através do load script, utilizando como data para  exclusão, a data de criação do arquivo d-2.

Muito Obrigado pela ajuda.

[Anonymous]

Oi Luciano, estou tentando fazer, mas não esta dando certo.  POr gentileza, consegue me ajudar? Segue abaixo o código que estou utilizando, lembrando que tenho que salvar na váriavel, o conteudo que esta na coluna name do resultado do último dia.

sub DoDir (Root)

   for each Ext in 'qvd'

      for each File in filelist (Root&'\Tb_Fato_Rematricula*.' &Ext)

         trace Lendo o arquivo $(Dir)/$(File) ;

         Let vData = floor(FileTime( '$(File)' )) - floor(Today());

         if '$(vData)' <-3 then

          ArquivosLidos:

          LOAD

             '$(File)'             as Name,

             FileSize( '$(File)' ) as Size,

                'Sim'                 as Apagado,

             FileTime( '$(File)' ) as FileTime

          autogenerate 1;

            // EXECUTE cmd.exe /c del '$(File)';

             EXECUTE cmd.exe /C DEL "$(File)";

         ELSE

          ArquivosLidos:

          LOAD

             '$(File)'             as Name,

             FileSize( '$(File)' ) as Size,

                'Nao'                 as Apagado,

                FileTime( '$(File)' ) as FileTime        

          autogenerate 1;

         endif  

      next File

   next Ext

   for each Dir in dirlist (Root&'\*' )

      call DoDir (Dir)

   next Dir

end sub

call DoDir ('\\172.16.140.49\QV_Producao\Dropbox (SIGA)\BI SIGA\4 - Bases Diárias\Marketing BI - 2 - QVDs Corporativo\2 - Retencao\2016_1');

ArquivosLidos2:

Load

date(max(FileTime), 'DD_MM_YYYY_hh_mm_ss') as teste

resident ArquivosLidos;

LET vm = '[\Tb_Fato_Rematricula_'& peek('ArquivosLidos2',2,'ArquivosLidos2')&'.qvd]';

exit script

[lucianosv]

O peek está errado.

Vc têm o residente ArquivosLidos2 mas não têm o campo ArquivosLidos2