FileExists no encuentra un fichero

[titooo]

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

[[Lepe]]

Una posibilidad es que tengas ocultas las extensiones de los archivos en el explorador, de forma que ves c:\mio\pepe.txt como nombre del archivo, pero en realidad existe el c:\mio\pepe.txt.txt ... revisa, porque es para tirarse de los pelos un buen rato jeje.

Pega las rutas en el foro, la que te da tu programa y la real, a ver si es algo del usuario de windows (igual te das cuenta al poner las dos rutas una debajo de la otra )

[titooo]

jaja gracias a ambos por los aportes, nunca e habia pasado esto, por eso recurri a este hilo... uso extensiones pdf

[[Lepe]]

A ver,

En lugar de un ShowMessage, pon un Edit en una ventana y pon la ruta al fichero ahí, en el Edit, selecciona todo el texto y lo copias, pegándolo en un explorador de windows, en la barra de direcciones, así verás si lo localiza o no.

- Puede ser que el fichero tenga una tilde, una contrabarra de más "\" o cualquier otra tontería.

[titooo]

Probe y me da exactamente con el archivo

[titooo]

Código Delphi [-]
procedure TForm18.Button1Click(Sender: TObject);
var
  rutavalida:boolean;
  ruta:string;
  i:integer;
begin
  rutavalida:=false;
  begin
  if edit1.Text <> ''
   then
    begin
    if copy(destino.Path, length(destino.Path)-1 ,length(destino.Path)) = '\' then
      ruta:= destino.Path + edit1.text
    else
      ruta:= destino.Path + '\' + edit1.text;
      rutavalida:=true;
    end
  else
    showmessage('Verifique Tipo de Archivo y Destino!');

  edit2.Text:=ruta;
  if fileexists(ruta)=true       {esta es la parte que consulto}
  then
      showmessage ('VA A SOBREESCRIBIR SU ARCHIVO')
  else
  begin
 if rutavalida
 then
  begin
  IF RADIOGROUP1.ItemIndex=-1
  THEN
      SHOWMESSAGE('seleccione un Tipo de Archivo')
  else
  case radiogroup1.ItemIndex of
  0:
    begin
    if edit1.Text<>''
     then
     begin
     if Lblform.Caption='LA'
     then
        begin
          form19.RvSys_aud.DefaultDest    :=rdFile;
          form19.RvProject1_aud.ProjectFile   := ExtractFilePath( Application.ExeName ) + 'Listado_auditoria.rav';
          form19.RvSys_aud.DoNativeOutput := false;
          form19.RvSys_aud.RenderObject   := form19.RvRenderPDF3;
          form19.RvSys_aud.OutputFileName := ruta + '.pdf';
          form19.RvSys_aud.SystemSetups   := form19.RvSys_aud.SystemSetups - [ssAllowSetup];
          form19.RvProject1_aud.Execute;
          form19.RvProject1_aud.Close;
         end;

[[Lepe]]

¿que hay en "destino.path" y en "edit1.text"?