Fórum Copiar arquivo #217137

Ola colegas,
estou usando a seguinte rotina para copiar todos os arquivos Ordem de uma pasta.


[color=blue:0336c3ab45]I := FindFirst(´D:\Fontes\LeiteUniao2\Banco de Dados\Ordem.*´, faAnyFile, SR);
While I = 0 Do
Begin
If (SR.Attr and faDirectory) <> faDirectory Then
Begin
Origem := ´D:\Fontes\LeiteUniao2\Banco de Dados\´ + SR.Name;
Destino := ´A:\´ + SR.Name;

Label_Arquivo.Caption := ´Aguarde ... copiando arquivo ´ + Origem;
Application.ProcessMessages;
If Not CopyFile(PChar(Origem), PChar(Destino), False) then
ShowMessage(´Erro ao copiar ´ + Origem + ´ para ´ + Destino);
End;
I := FindNext(SR);
End;[/color:0336c3ab45]

Acontece que o path(alias) muda em algumas máquinas.
Para isto eu fiz uma rotina que mostra o path(alias) do aplicativo (LeiteUniao-Paradox)

O que preciso é dizer para o aplicativo copiar todos os arquivos ´Ordem´ do path(alias) ´LeiteUniao-Paradox´, ou seja trocar o codigo

[color=blue:0336c3ab45]FindFirst(´D:\Fontes\LeiteUniao2\Banco de Dados\Ordem.*´, faAnyFile, SR);[/color:0336c3ab45]

por

[color=red:0336c3ab45]FindFirst(Alias\Ordem.*´, faAnyFile, SR);[/color:0336c3ab45]

mas não estou conseguindo.

Tentando ser mais claro
substituir
D:\Fontes\LeiteUniao2\Banco de Dados\Ordem.*´
por
Alias\Ordem.*

Grato pela atenção