Fórum Como Copia os Aquivos de uma Pasta #212219
06/02/2004
0
[b:4e4571d9bd]Pessoal como faço para copiar todos arquivos de uma determinada pasta do Windows para o Disquete ?
Pôr exemplo........ C:\ CONTROLE\ DB......... quero copiar todos os arquivos da pasta DB quando Clicar no Botão copiar .......caso o disquete não esteja no Driver da um Mensagem ......agradeço .......Jairo-GO[/b:4e4571d9bd]
Pôr exemplo........ C:\ CONTROLE\ DB......... quero copiar todos os arquivos da pasta DB quando Clicar no Botão copiar .......caso o disquete não esteja no Driver da um Mensagem ......agradeço .......Jairo-GO[/b:4e4571d9bd]
Jairo-go
Curtir tópico
+ 0
Responder
Posts
06/02/2004
Spooner
Oi, Blz..
Tenta Assim...
Tenta Assim...
[color=green:fd47c479cc]
procedure TForm1.Button1Click(Sender: TObject);
var
SR: TSearchRec;
I: integer;
Origem, Destino: string;
begin
I := FindFirst(´d:\dados\*.*´, faAnyFile, SR);
while I = 0 do begin
if (SR.Attr and faDirectory) <> faDirectory then begin
Origem := ´d:\dados\´ + SR.Name;
Destino := ´a:\\´ + SR.Name;
if not CopyFile(PChar(Origem), PChar(Destino), true) then
begin
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
end
else
begin
ShowMessage(´oi´);
end
end;
I := FindNext(SR);
end;
end;
[/color:fd47c479cc]
Responder
Gostei + 0
Clique aqui para fazer login e interagir na Comunidade :)