FileExists no encuentra un fichero

[ecfisa]

Hola titooo.

Estoy viendo un error lógico que seguramente te esté ocasionando el problema.

Supongo que en esta línea queres verificar si existe el delimitador '\':

Código Delphi [-]
  if copy(destino.Path, length(destino.Path)-1 ,length(destino.Path)) = '\' then

Pero de ese modo, estas tomando los últimos 2 caracteres... Si por ejemplo destino.Path contiene 'C:\Carpeta@\' el resultado será: '@\' y la igualdad no se cumplirá nunca.

Tendría que ser:

Código Delphi [-]
  if copy(destino.Path, length(destino.Path), length(destino.Path)) = '\' then

De todos modos es mas simple hacer:

Código Delphi [-]
...
var
  FullName : string;
begin
  if edit1.Text <> '' then
  begin
    FullName  := IncludeTrailingPathDelimiter(destino.Path) + Edit1.Text;
    if FileExists(FullName) then
    ...

y no necesitas comprobación ya que la función incluye el delimitador '\' sólo si no existe al final de la cadena enviada en el argumento.

Saludos.

[titooo]

Gracias ecfiiisaaa lo pruebo y comento si sirvioo saludos! vos siempre salvandome las papas jaja.

[titooo]

No funciono :/

[[nlsgarcia]]

titooo,

Empezado por titooo

...yo observo a traves de un showmessage() que ruta le estoy enviando...y lo comparo con la ruta de el archivo existente y es la misma...

Pregunto:

1- ¿Puedes publicar el valor del campo Ruta empleado en la función FileExists?.

2- ¿Existe alguna regla de seguridad aplicada al archivo en cuestión que pueda influir en el problema?.

Revisa este código:

Código Delphi [-]
function SearchFile(Path, FileName : String) : Boolean;
var
  searchResult : TSearchRec;

begin

   Path := IncludeTrailingPathDelimiter(Path) + FileName;

   if FindFirst(Path, faAnyFile, searchResult) = 0 then
      Result := True
   else
      Result := False;

end;

El código anterior es una forma alterna a la función FileExists para verificar la existencia de un archivo, te sugiero probarla para ver su comportamiento con el archivo en cuestión.

Espero sea útil

Nelson.