Tenho a Procedure abaixo que copia arquivos (com estrutura de pastas inteiras)
de um lugar para outro, funciona belezinha... mas queria ignorar alguns tipos
de arquivos como "*.tmp".
Já quebrei a cabeça com isso... alguém tem idéia de como implementar isso nesta
função ?
procedure CopyDir(const cFrom, cTo : string);
var
OpStruc : TSHFileOpStruct;
frombuf, tobuf : array[0..128] of Char;
begin
FillChar(frombuf, Sizeof(frombuf), 0);
FillChar(tobuf, Sizeof(tobuf), 0);
StrPCopy(frombuf, cFrom);
StrPCopy(tobuf, cTo);
with OpStruc do
begin
Wnd := Application.Handle;
wFunc := FO_COPY;
pFrom := @frombuf;
pTo := @tobuf;
fAnyOperationsAborted := false;
fFlags := FOF_NOCONFIRMATION;
hNameMappings := nil;
lpszProgressTitle := nil;
end; // with
SHFileOperation(OpStruc);
end; // CopyDir
procedure TForm1.Button2Click(Sender: TObject);
begin
CopyDir('F:\lcnet\config\*.*','C:\teste\');
end;
São varios tipos de arquivos que existem dentro da(s) pasta(s)... assim como
existe varias pastas dentro da mesma... a função se encarrega de criar esta
estrutura... a única coisa que não consegui é escolher ou ignorar algum tipo de
arquivo nesta rotina.
*Se eu colocar "F:\lcnet\config\*.ext" ele ignora a estutura e copia só os
primeiros arquivos.
Quero ignorar alguns arquivos porque além de não me interessar por ser temp,
eles estão sendo usados o tempo todo cancelando a cópia no meio da rotina.
Todo este processo é para fazer um backup de um "banco" DBF, pois estou tendo
que fazer na mão, ae ja sabem né...
Marcelo Silva
Cel. 11 9693-4251
ICQ - 49224093
MSN [EMAIL PROTECTED]
----------
No virus found in this outgoing message.
Checked by AVG Anti-Virus.
Version: 7.0.300 / Virus Database: 265.6.13 - Release Date: 16/01/2005
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
