Fórum Como Copiara todos os arquivos cuja data de criação estejam em um determinado período. #619914

procedure TfrmPrincipal.EXEbtnProcessarClick(Sender: TObject);
var
  DtInicial  : string;     // Data de inicio usado para comnpor a msg do e-mail
  DtFinal    : string;     // Data de Final usado para comnpor a msg do e-mail
  Command    : string;     // Linha de comando para fazer a cópia dos arquivos
  I          : integer;    // "I" Utilizado para identificaçãodos arquivos "X" Utilizado para contas os arquivos
  begin
  DtInicial := StringReplace(FormatDateTime('yyyy/mm/dd', EXEdtpInicial.Date),'/','',[rfReplaceAll]);
  DtFinal   := StringReplace(FormatDateTime('yyyy/mm/dd', EXEdtpFinal.Date+1),  '/','',[rfReplaceAll]);

  {$REGION ' Copiando os XML  '}
  try
  /// robocopy <source> <destination> [<file>[ ...]] [<options>]
  /// Copia dados de arquivo de um local para outro.
  /// <source>      Especifica o caminho para o diretório de origem.
  /// <destination> Especifica o caminho para o diretório de destino.
  /// <file>        Especifica o arquivo ou arquivos a serem copiados.
  ///               Caracteres curinga (* ou ?) são suportados. Se você não
  ///               especificar esse parâmetro, *.* ele será usado como valor padrão.
  /// <options>     Especifica as opções a serem usadas com o comando robocopy,
  ///               incluindo copy, file, retry, logging e opções de trabalho.
  ///
  /// Command := <'C:\\TSD\\HOST\\'+PathXML+'\\> <C:\\TSD\\TMP\\'+PathXML+'> <*.*>  </S /MAXAGE:'+DtInicial+' /MINAGE:'+DtFinal>;
  ///
  /// <options>
  /// /s	          Copia subdiretórios. Esta opção exclui automaticamente
  ///               diretórios vazios.
  /// /maxage:<n>   Especifica a idade máxima do arquivo
  ///               (para excluir arquivos com mais de n dias ou data).
  /// /minage:<n>   Especifica a idade mínima do arquivo
  ///               (exclui arquivos mais recentes que n dias ou data).

    {$REGION ' Copiando os XML NFC-e  '}
    if EXEchbNFCe.Checked then
    begin
      // Apresenta a mensagem na tela
      frmSplash.SplashText.Caption := 'Copiando os XML NFC-e!';
      frmSplash.SplashText.Repaint;
      frmSplash.SplashText.Refresh;
      // Nome da pasta no siste Hotline
      PathXMLNFCe := 'XML_NFCe';
      if not DirectoryExists('C:\\TSD\\TMP\\'+PathXMLNFCe) then ForceDirectories('C:\\TSD\\TMP\\'+PathXMLNFCe);
      //          <Pasta Origem> <Pasta Destino> <Arquivos> <DataMAX> <DataMIN>    XML_COMPRA
      Command := 'C:\\TSD\\HOST\\'+PathXMLNFCe+'\\ C:\\TSD\\TMP\\'+PathXMLNFCe+' *.* /S /MAXAGE:'+DtInicial+' /MINAGE:'+DtFinal;
      // Executa o comando DOS e retorne imediatamente
      I       := ShellExecuteAndWait('open', 'ROBOCOPY', PChar(Command), '', SW_HIDE, True);
    end;  {$ENDREGION}
  except
    on E: Exception do
    begin
      ShowMessage('Erro ao Copia os XML!' + E.Message );
      frmSplash.close;
      Exit;
    end;
  end;