CRIAR PASTA COM O ANO ESPECIFICO E MOVER OS ARQUIVOS XML PRA LÁ CONFORME A DATA

Delphi

26/02/2019

olá, gostaria de algumas dicas de como eu posso criar pastas com anos específicos de datas de XML para tornar mais organizado movendo para seus respectivos anos, em DELPHI?

        
                

                    

                        Vicente Santos
                        
Vicente Santos

                    

                    
Curtidas 0

                

            

        

        

                
Melhor post

            

            

                

                    

                        

                             Hélio Devmedia
                             
Hélio Devmedia

                        

                        
 27/02/2019

                    

                   

                       Olá vicente, tudo bem?



Não há nada de difícil nisto. Nas versões atuais do delphi existe a Unit DataUtils e a Unit IOUtils que juntas ajudarão a resolver isso, observe:




  //Criar diretório com uma data que vem de um TDateTime ou TDate
  TDirectory.CreateDirectory('c:\\caminho_que_eu_quero\\'+YearOf(now));


  //ou

  //Criar diretório com uma data que vem de uma String;
  TDirectory.CreateDirectory('c:\\caminho_que_eu_quero\\'+YearOf(strToDate('01/01/2019')));


  //depois é só copiar
  TFile.Copy('c:\\diretorioAtual','c:\\diretorioDestino');





Espero que goste desta dica.

Um forte abraço e fique com Deus.
                   

                   
GOSTEI 1

                

           

        

            
Mais Respostas

        

        

             

                 

                     

                          Vicente Santos
                          
Vicente Santos

                     

                     
 26/02/2019

                 

                

                    blz, me ajudou a abrir minha mente, mas a conversao aqui nesse codigo nao está dando certo, oque deveria ser feito 

/?   





//Criar diretório com uma data que vem de uma String;

TDirectory.CreateDirectory('c:\\\\caminho_que_eu_quero\\\\'+YearOf(strToDate('01/01/2019')));
                

                
GOSTEI 0

             

             

                 

                     

                          Vicente Santos
                          
Vicente Santos

                     

                     
 26/02/2019

                 

                

                    suas funções me ajudaram bastante, mas utilizei tambem esse metodo, criei uma procedure e fiz o seguinte



procedure TForm3.MoveArquivo(Origem, Destino: String);

var

  SR: TSearchRec;

  I: integer;

  ArquivoOrigem, ArquivoDestino: string;

begin

  I := FindFirst(Origem + '\\*.*', faAnyFile, SR);



  while I = 0 do

  begin

    if (SR.Attr and faDirectory) <> faDirectory then

    begin

      ArquivoOrigem := Origem + '\\' + SR.Name;

      ArquivoDestino := Destino + '\\' + SR.Name;

      MoveFile(PChar(ArquivoOrigem), PChar(ArquivoDestino));

    end;

    I := FindNext(SR);

  end;

end;
                

                
GOSTEI 0

             

             

        

            POSTAR