duvida sobre a função copyfiles
Caros Amigos a duvida é simples porém não consegui resolver por favor se alguém puder me ajudar uso delphi 7, a duvida é a seguinte pq esta função nao copia o arquivo:
function TForm1.CopiarArquivo(const AOrigem, ADestino: string;
const APodeSobrescrever: Boolean): Boolean;
begin
Result := CopyFile(PChar(AOrigem), PChar(ADestino), APodeSobrescrever);
end;
procedure TForm1.Button1Click(Sender: TObject);
var variavel:boolean;
begin
variavel:= CopiarArquivo(´C:\copiando arquivos.txt´,´c:\nova pasta´,True);
if variavel= true then
showmessage(´copiado´)
else
showmessage(´nao copiado´);
end;
end.
desde ja agradecido
Miguel
function TForm1.CopiarArquivo(const AOrigem, ADestino: string;
const APodeSobrescrever: Boolean): Boolean;
begin
Result := CopyFile(PChar(AOrigem), PChar(ADestino), APodeSobrescrever);
end;
procedure TForm1.Button1Click(Sender: TObject);
var variavel:boolean;
begin
variavel:= CopiarArquivo(´C:\copiando arquivos.txt´,´c:\nova pasta´,True);
if variavel= true then
showmessage(´copiado´)
else
showmessage(´nao copiado´);
end;
end.
desde ja agradecido
Miguel
Miguel
Curtidas 0
Respostas
Massuda
08/08/2007
Talvez resolva... os nomes de origem e destino devem ser [b:71f084d0bc]nomes de arquivo[/b:71f084d0bc], não nomes de pasta.
GOSTEI 0
Emerson Nascimento
08/08/2007
da forma apresentada será criado um arquivo chamado ´nova pasta´ na raiz de c:, desde que não exista uma pasta com este nome.
se você quer copiar para dentro da pasta, deverá passar o caminho completo no segundo parâmetro: ´c:\nova pasta\copiando arquivos.txt´
se você quer copiar para dentro da pasta, deverá passar o caminho completo no segundo parâmetro: ´c:\nova pasta\copiando arquivos.txt´
GOSTEI 0
Miguel
08/08/2007
obrigado a vcs que me ajudaram a tirar esta duvida, realmente faltava o nome do arquivo destino funcionou corretamente agora, valeu!!!!
GOSTEI 0
Tiago Rocha
08/08/2007
Não existe a possibilidade de copiar pastas?
GOSTEI 0