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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 ファイルへのアクセスが拒否されましたというエラーが出るのですが、原因が分かりません。 下は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;