ActiveDelphi

[Aggelos]

Boa tarde a todos!

Pessoal, estou com um problema que não sei se é bobo ou não...

Sempre usei a função CopyFile para copiar arquivos de uma pasta para outra, mas hove a necessidade de fazer isso entre pastas na rede e estou tomando uma surra e não está funcionando...


Fiz a seguinte rotina:

Tenho a função chamadora:

if F.CopiaArquivo(edLocalImagemOrigem.Text, PastaSistema, NomeExtencaoArq) = False then
begin
Result := False;
ShowMessage('Erro ao copiar imagem.' + #13 + #13 +
'A imagem deverá se salva diretamente na pasta CONTRATOS.' + #13 +
'(ou em uma paststa específica dentro da pasta CONTRATOS)' + #13 +
'no Servidor e cadastrata a partir da pasta no Servidor.');
exit;
end;

que passa os parâmetros:

edLocalImagemOrigem.Text := C:\USERS\RODRIGO\DESKTOP\NOVA PASTA\FOTO 1.JPG;

PastaSistema := \\192.168.0.101:C:\Projetos\GImoveis\Imagens\CONTRATOS\C2\;

NomeExtencaoArq := FOTO 1.JPG;

Fiz a função para copiar o arquivo:

function TFuncoes.CopiaArquivo(Origem, Destino, Arquivo: String): Boolean;
begin
Origem := '"' + Origem + '"';
Destino := '"' + Destino + Arquivo + '"';

if CopyFile(PChar(Origem), PChar(Destino), True) then
Result := True
else
Result := False;
end;

Já experimentei tirar as aspas duplas, as barras invertidas, os dois pontos ":" mas nada de fazer copiar o arquivo...

[Batera]

Boa noite Aggelos. O arquivo não é copiado porque a função não consegue encontrar o caminho de destino. O erro está na pasta de destino:

[Aggelos]