Acceso denegado al crear un fichero de texto
Hola.-
Mi problema es el siguiente, quiero escribir en intraweb un fichero de texto una serie de lineas, el código es el siguiente.-
procedure GuardarFicheroOut(Registro : String);
Var
Fichero : TextFile;
Begin
AssignFile(Fichero,'pepe.txt');
Try
Append(Fichero);
Except
Rewrite(Fichero);
End;
Try
Write(Fichero, Registro);
Writeln(Fichero,'');
Finally
CloseFile(Fichero);
End;
End;
procedure TIWForm1.IWAppFormCreate(Sender: TObject);
begin
GuardarFicheroOut('Uno');
GuardarFicheroOut('Dos');
GuardarFicheroOut('Tres');
end;
En local funciona perfectamente pero a la hora de subirlo a Internet siempre da el mismo error "File Access Denied", he mirado los permisos y tiene dado todos los permisos posibles, pero me sigue dando ese error.
¿A que se puede deber?.
Gracias
|