acceder a un fichero

[nesetru]

hola!

estoy intentando acceder a un fichero para escritura, lo que hago es:

//Abro el fichero para escritura
FileHandle := FileOpen(fichero, fmOpenWrite);
//si existe
if (FileHandle > 0 ) then
//inserto texto en el ficchero
begin
FileWrite(FileHandle, 'si funciona', SizeOf(15));
FileWrite(FileHandle, 'MIN=', SizeOf(15));
//Cerramos el fichero.
FileClose(FileHandle);
end
else
MessageDlg('ha ocurrido un error con el fichero.',mtError,[mbOk],0);

El problema es que nunca llega a abrirse correctamente el fichero, ya que nunca me inserta nada pese a que la ruta del fichero que le indico es la correcta(la obtengo asi en una función:
...
ruta:=ExtractFilePath(Application.ExeName);
Result:=(ruta + 'Datos\11.lg');...)


//Abro el fichero para escritura //inserto texto en el ficchero

[delphi.com.ar]

¿Te muestra el mensaje de error?

PD:
En lugar de mostrar ese mensaje estático, te recomiendo hacer un RaiseLastWin32Error (o RaiseLastOSError en D6 o mayor), así te mostrará el error que arroja el sistema operativo, que será mucho mas descriptivo.

Saludos!

[nesetru]

muchas gracias!!

al final era que el fichero tenia dos extensiones y por eso daba error, ya que no lo encontraba :-P