f002 ファイルがすでに開いています
エラーが発生するプログラムは以下の通りです。
fileNum% = Freefile()
fileNum2% = Freefile()
Open "c:\temp\index.html" For Input As #fileNum%
Open "c:\temp\index2.html" For Input As #fileNum2%
原因
デバッガーで見ると、ファイル番号である fileNumとfileNum2に同じ1が代入されておりこれが原因でのエラーと思われました。
ファイル番号を OPEN で確保する前に次のファイル番号を確保しているので同じファイル番号が割り当てられてしまっていました。
解決方法
以下の通り、Openステートメントでファイルを開いてから次のFreefileを呼び出します。これによりファイル番号の重複を回避します。
fileNum% = Freefile()
Open "c:\temp\index.html" For Input As #fileNum%
fileNum2% = Freefile()
Open "c:\temp\index2.html" For Output As #fileNum2%
(補足)Lotus Script を使用しています。(VBを Notesに拡張した言語です。)
本ページは IBM Lotus Notes Domino (ロータスノーツドミノ)を対象としています。 基本的には Notes 4,5,及び6以後を対象としていますが、バージョンによっては対応していない場合があります。 lotus scriptや @関数 (@コマンド)を対象としていて、VB Scriptには対応していません。 本サイト内掲載されている情報は、著作権法により保護されています。いかなる場合でも権利者の許可なくコピー、配布することはできません。 このページはリンクフリーです。(このページへの直接リンクも可能です。)[ホーム] - [ノーツドミノ プログラミングサンプル一覧]