Código Delphi [-] vDestino := vDestino + '\' + ExtractFileName(vOrigen);
vDestino := vDestino + '\' + ExtractFileName(vOrigen);