Unlock a world of possibilities! Login now and discover the exclusive benefits awaiting you.
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.
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
O peek está errado.
Vc têm o residente ArquivosLidos2 mas não têm o campo ArquivosLidos2