ファイルへのアクセスが拒否されましたというエラーが出るのですが？？

解決

AS 2024-04-05 20:19:08 No: 151433

ファイルへのアクセスが拒否されましたというエラーが出るのですが、原因が分かりません。

下は20年以上前に作ってエラーなんか起こったことはないのですが、
ウイルスバスタークラウドのせいかなとか思ったりしています。

何かヒントをもらえませんか？？
よろしくお願いします。

procedure SaveFile(s:string; filemei:string);
var
  F: textfile;
  inbuff:string;
begin
  FileName :=filemei;
  AssignFile(F, FileName); Rewrite(F);
  InBuff:=s;
  writeln(F,InBuff);
  CloseFile(F);
end;

AAAAA 2024-04-06 08:34:54 No: 151434

フォルダ指定しないか？

AAAAA 2024-04-06 08:35:20 No: 151435

してないか

あ 2024-04-06 11:46:57 No: 151436

ファイル名はなんですか
実在しますか

ＡＳ 2024-04-07 17:17:13 No: 151437

ありがとうございました。

フォルダ指定はします。
これのエラーはパスが存在しませんとかになると思うんですが？？

保存するのにファイル名は自由に設定できると思いますが？？

とりあえず、firewallをoffにしていろいろしたら、エラーは出なくなりました。

２月に買って、ウィルスバスターが仮のやつなので、
何をブロックしたかを表示するウィンドウが表示されていません。
何かのときにブロックするとかにしたのではと？？
そのほかにも正常な働きをしていないところがあるんです。

もう、ホントにボケが出ていますので、これからもぼけた投稿をするかもですが、
よろしくお願いします。

AS 2024-04-17 05:39:29 No: 151449

ウィルスバスターを入れたら、完全に動作するようになりました。
今までは体験版だったのですが、何が違んでしょうね？？