Ver Mensaje Individual
  #6  
Antiguo 27-10-2010
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Reputación: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola nena_yei.

Se me ocurrió algo usando la función SetErrorMode ...

Probá este código:
Código Delphi [-]
function MiFileExists(Nombre: string): boolean;
var
  Error: Word;
begin
  Error:= SetErrorMode(SEM_FailCriticalErrors);
  if FileExists(Nombre) then
    Result:= True
  else
    Result:= False;
  SetErrorMode(Error);
end;

Ejemplo de llamada:
Código Delphi [-]
    if MiFileExists('D:\RUTA\NOMBRE.EXT') then

Saludos.
Responder Con Cita