Fórum CRIAR PASTA COM O ANO ESPECIFICO E MOVER OS ARQUIVOS XML PRA LÁ CONFORME A DATA #600803
26/02/2019
0
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
Curtir tópico
+ 0
Responder
Post mais votado
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:
Espero que goste desta dica.
Um forte abraço e fique com Deus.
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.
Hélio Devmedia
Responder
Gostei + 1
Mais Posts
27/02/2019
Vicente Santos
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')));
/?
//Criar diretório com uma data que vem de uma String;
TDirectory.CreateDirectory('c:\\\\caminho_que_eu_quero\\\\'+YearOf(strToDate('01/01/2019')));
Responder
Gostei + 0
27/02/2019
Vicente Santos
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;
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;
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)