Copiar Arquivo
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?
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
Curtidas 0
Respostas
Felipe Caputo
10/08/2010
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');GOSTEI 0
Marcos Iwazaki
10/08/2010
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
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
GOSTEI 0
Evandro Abreu
10/08/2010
deu certo com o copy file, faltou arquivo de destino o nome do arquivo
vlw
vlw
GOSTEI 0