掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
.txt作成エラーを回避するには？ (ID:20769)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi６です。アプリケーション中でログを書き出す手続きを作ったのですが、 Windows98では問題無く動作するのに、Me以降のOSだとファイルが無い場合に 新規作成されず、不正なファイル名と言われてしまいます。 procedure TForm1.LogPrint(LOG: string;); var f: TextFile; ymd: string; begin // ymd ：ファイルネーム[年月日.txt] ymd := Copy(DateTimeToStr(now), 1, 8); Delete(ymd, 3, 1); Delete(ymd, 5, 1); // ファイルがあれば最下行に追加、無ければ先頭から(ファイル作成) AssignFile(f, FolderPath + ymd + '.txt'); if FileExists(FolderPath + ymd + '.txt') then Append(f) // 問題なく動作 else ReWrite(f); // エラー(不正なファイル名です) Writeln(f, LOG); CloseFile(f); end; 問題点、又はエラー回避法が分かる方、教えて下さい。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.