CopyFile - não copia arquivo

Delphi

16/02/2017

procedure TfrmData.btCopiar(Sender: TObject);
var arqdata, vpasta : String;
begin
  arqdata:=C:\\SFB\\data\\2017\\02\\21\\YTX4L-BS-16-144115.txt
  vpasta:='Z:\\'+IntToStr(n)+'\\';
  //n é do tipo integer de 1 a 20
  CopyFile(PChar(arqData[i]),PChar(vpasta[i]),True);
end;


A variável está com o caminho correto do arquivo "arqdata", e o "vpasta" é o local destino, porém não está copiando o arquivo.
Poderiam me ajudar por favor.
Denilson

Denilson

Curtidas 0

Respostas

Joel Rodrigues

Joel Rodrigues

16/02/2017

Olá, Denilson. A função CopyFile espera, na verdade, o caminho completo do arquivo origem e do destino. Você está passando apenas a pasta de destino.

Creio que esse artigo pode lhe ajudar: CopyFile no Delphi: Como copiar arquivos.
GOSTEI 0
Denilson

Denilson

16/02/2017

Olá.
Obrigado pela ajuda Joel, tá funfando certinho.
Vlw.
GOSTEI 0
Denilson

Denilson

16/02/2017

[RESOLVIDO]
GOSTEI 0
Eduardo Silva

Eduardo Silva

16/02/2017

Bom Dia! No meu caso o Comando CopyFile não Copia por que o TOpenPictureDialog.FileName pega o nome assim ('Imagens\\teste.jpg') ai não copia. pois teria que ser o Caminho completo. e só funciona se vier o caminho completo ('C:\\Users\\Prosystem\\Pictures\\teste.jpg').
GOSTEI 0
POSTAR