Caro Douglas,
Não sei se o código que estou lhe enviando ajuda mas dê uma olhada:
143 - Definindo Atributo de um arquivo
function FileSetAttr(const FileName: string; Attr: Integer): Integer;
Exemplo:
FileSetAttr ('C:\logo.sys',0);
Onde Attr:Interger:
0=Sem Atributos;
1=Somente Leitura;
2=Oculto;
3=Somente Leitura e Oculto;
4=Sistema;
5=Somente Leitura e Sistema;
6=Sistema e Oculto;
7=Somente Leitura,Sistema e Oculto;
198 - Copiar arquivos usando curingas (*.*)
{ - Coloque um Button no Form;
- Altere o evento OnClick deste Button conforme abaixo: }
procedure TForm1.Button2Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst('c:\Origem\*.*', faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := 'c:\Origem\' + SR.Name;
Destino := 'c:\Destino\' + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
ShowMessage('Erro ao copiar ' + Origem + ' para ' + Destino);
end;
I := FindNext(SR);
end;
end;
Observações
No exemplo acima, se o arquivo já existir no destino, a função falha
(não copia). Para que a função possa sobreescrever o arquivo destino
(caso exista), altere o último parâmetro de CopyFile para false.
CUIDADO! Se um arquivo for sobreescrito, estará perdido para sempre!
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');
pTo := PChar('a:\');
fFlags:= FOF_ALLOWUNDO;
end;
SHFileOperation(Dados);
end;
Espero que algo seja aproveitado
--- Em [EMAIL PROTECTED], "Douglas - CPD" <[EMAIL PROTECTED]>
escreveu
> Preciso de uma função que copie sobre arquivos com atributo read-
only,
> alguém teria ??
>
>
> Obrigado.
>
>
> Att.
> Douglas - CPD.
> ---
> Email enviado sem vírus - ¿?
> Checked by AVG anti-virus system (http://www.grisoft.com).
> Version: 6.0.782 / Virus Database: 528 - Release Date: 22/10/2004
>
>
> [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
