F�rum Copiar Arquivo #383358

10/08/2010

Pessoal,
Tenho a seguinte rotina de copiar um determinado arquivo

////////////////////////////rotina
                      ///////////////////fun��o para copiar arquivo
                        FillChar(Dados,SizeOf(Dados), 0);
                        with Dados do
                        begin
                          wFunc := FO_COPY;
                          pFrom := PChar(edtDe.Text);
                          pTo   := PChar(edtpara.Text);
                          fFlags:= FOF_ALLOWUNDO;
                        end;
                      try
                        SHFileOperation(Dados);
////////////////////////////rotina

F:\Sistemas\pascal\SID\FOTOS\NAOCLASSIFICADO\FOTO 1.JPG

para

F:\Sistemas\pascal\SID\FOTOS\CLASSIFICADO

o problema em alguns arquivos, da o seguinte erro:

"N�o � possivel copiar arquivo. N�o � possivel ler o arquivo ou disco de origem"

Alguem ja passou por isso?

Evandro Abreu

Curtir t�pico

+ 0

Responder

Posts

10/08/2010

Felipe Caputo

eu uso a seguinte rotina:

if Fileexists(arquivoorigem) then  copyfile(PChar(arquivoorigem),PChar(arquivodestino),False)else if Fileexistis(arquivodestino) then  if MessageDlg('Deseja sobrescrever o arquivo de destino?',mtconfirmation,[mbyes,mbno],0) = mryes then    copyfile(PChar(arquivoorigem),PChar(arquivodestino),True)else  raise Exception.Create('Arquivo n�o encontrado');

Responder

Gostei + 0

11/08/2010

Marcos Iwazaki

Olha amigo...

O destino n�o � somente a pasta e sim o nome que vc quer que fique no destino
ex:
Origem -> c:\windows\xxx.txt
Destino -> c:\novo_windows\xxx.txt
Deve ser isso o problema

Responder

Gostei + 0

11/08/2010

Evandro Abreu

deu certo com o copy file, faltou arquivo de destino o nome do arquivo

vlw

Responder

Gostei + 0