Fórum urgente - Erro I/O #153028

Olá amigos,

Estou tentando gravar um arquivo texto e estou tendo o seguinte problema:

qdo o arquivo nao existe, ao criar o arquivo ocorre uma excessao I/O Error 123 e nao deixa eu gravar no arquivo.
Qdo a arquivo existe, o erro que aparece é I/O Error 32 e também não permite que eu grave no arquivo.
Peguei esta mesma rotina e coloquei em um outro aplicativo e funcionou perfeitamente, gravando no mesmo diretório e com o mesmo nome de arquivo. A rotina segue abaixo...
Alguém pode me ajudar?

Grato,

Renato


Procedure TForm1.GeraArqLog(DirCaminho:string; Conteudo:String);
var ArqLog: TextFile;
begin
AssignFile(ArqLog, DirCaminho);
if FileExists(DirCaminho) then
Append(ArqLog)
else
Rewrite(ArqLog);
Writeln(ArqLog,Conteudo);
CloseFile(ArqLog);
end;

Favor postar o título em minúsculas
Zoom