RE: [delphi-br] Problema com cópia de Arquivo.

Thu, 25 May 2006 13:54:40 -0700

Tente assim e ve se funciona !!!

//uses FileCtrl;
var
   Arquivo,
   vms_Caminho,
   vms_Destino : String;
   vmp_Arquivo,
   vmp_Destino : Array [0..511] of Char;

begin
    try
       Arquivo     := 'teste.txt';
       vms_Caminho := 'C:\' + Arquivo;
       vms_Destino := 'C:\testeBB\';

       if FileExists(vms_Caminho) then
       begin
          if not DirectoryExists(vms_Destino) then
             if not ForceDirectories(vms_Destino) then
             begin
                ShowMessage('Não foi possivel criar pasta de destino.');
                Exit;
             end;
          vms_Destino := 'C:\testeBB\' + Arquivo;
          if FileExists(vms_Destino) then
             DeleteFile(vms_Destino);
          StrPCopy(vmp_Arquivo, vms_Caminho);
          StrPCopy(vmp_Destino, vms_Destino);
          CopyFile(vmp_Arquivo , vmp_Destino, False);
       end;
    except
       ShowMessage('Ocorreu um erro ao copiar o arquivo');
    end;
end;



Eduardo Castro Alves
Analista de Sistemas

-----Original Message-----
From: delphi-br@yahoogrupos.com.br [mailto:[EMAIL PROTECTED] On Behalf Of FILIPE GMAIL
Sent: quinta-feira, 25 de maio de 2006 16:24
To: delphi-br@yahoogrupos.com.br
Subject: [delphi-br] Problema com cópia de Arquivo.

Bom dia a todos,

    Pessoal estou com problemas ao copiar um arquivo de uma pasta para outra, será que alguém pode me dar uma ajuda? Uso Delphi 5 e dá um "Access Violation" quando tento executar o código abaixo, o problema é que eu preciso parametrizar os nomes dos arquivos e só posso fazer isso com String ou AnsiString, por isso preciso passar para pChar, se alguém puder me ajudar. Estou mandando o código simplificado abaixo:

procedure TForm1.Button1Click(Sender: TObject);
var
    vms_Caminho, vms_Destino : AnsiString;
    vmp_Arquivo, vmp_Destino : PChar;
begin
    TRY
    vms_Caminho := 'C:\teste.txt';
    vms_Destino := 'C:\teste\teste.txt';

    STRPCOPY(vmp_Arquivo, vms_Caminho);
    STRPCOPY(vmp_Destino, vms_Destino);
    CopyFile(vmp_Arquivo , vmp_Destino, False);
   
    EXCEPT
    ShowMessage(Ocorreu um erro ao copiar o arquivo);
    End;
    END;
end;

Valeu, Filipe Ferrarini Gevaerd.

[As partes desta mensagem que não continham texto foram removidas]





--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>



Links do Yahoo! Grupos









--
<<<<< 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]


Yahoo! Grupos, um serviço oferecido por:
PUBLICIDADE

Links do Yahoo! Grupos

Responder a