Socorro! Preciso de Ajuda para copiar arquivos
gostaria de saber como faço para copiar um determinado arquivo para outro diretório utilizando como critério a data que o arq. foi criado?
Grato.
:cry:
Grato.
:cry:
Renilson
Curtidas 0
Respostas
Marcelo.c
08/05/2003
Talvez este código possa ajudar.
Dica da DTDelphi:
366 - Copiando arquivos usando o Shell do Windows
Coloque no uses: ShellApi
{ - Coloque um botão no form e altere o evento OnClick deste botão conforme abaixo:}
procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(´c:\teste\*.txt´); // Copia os arquivos de Extensão TXT
pTo := PChar(´a:\´); // Para a unidade A:
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;
Observações:
Esta forma de copiar arquivos oferece várias vantagens. O Shell avisa para pôr um próximo disco quando o atual estiver cheio. Mostra a barra de progresso. Pode copiar arquivos usando máscara de uma forma extremamente simples.
Dica da DTDelphi:
366 - Copiando arquivos usando o Shell do Windows
Coloque no uses: ShellApi
{ - Coloque um botão no form e altere o evento OnClick deste botão conforme abaixo:}
procedure TForm1.Button1Click(Sender: TObject);
var
Dados: TSHFileOpStruct;
begin
FillChar(Dados,SizeOf(Dados), 0);
with Dados do
begin
wFunc := FO_COPY;
pFrom := PChar(´c:\teste\*.txt´); // Copia os arquivos de Extensão TXT
pTo := PChar(´a:\´); // Para a unidade A:
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;
Observações:
Esta forma de copiar arquivos oferece várias vantagens. O Shell avisa para pôr um próximo disco quando o atual estiver cheio. Mostra a barra de progresso. Pode copiar arquivos usando máscara de uma forma extremamente simples.
GOSTEI 0
Renilson
08/05/2003
Valeu Marcelo, muito obrigado pela dica. :P
Grato,
Renilson.
Grato,
Renilson.
GOSTEI 0