タイトル : Re^6: VB6.0でデータをバイナリ処理 投稿日 : 2010/02/22(Mon) 22:19 投稿者 : 花ちゃん
> 試しにファイル番号#1で書いた小さなプログラムを複数同時に実行して確かめましたが >アクセス(バイナリ 読込)出来るようです。 どのようなコードを書きましたか? 同時に同じ番号のファイル をオープンしたらエラーになりませんか? Private Sub Command1_Click() Open "c:\test.htm" For Binary As #1 Open "c:\test.xlsx" For Binary As #1 End Sub Private Sub Command2_Click() Dim Fno As Integer Fno = FreeFile() Open "c:\test.htm" For Binary As #Fno Debug.Print Fno Fno = FreeFile() Open "c:\test.xlsx" For Binary As #Fno Debug.Print Fno End Sub >ところがmsdnの説明には番号1から255を指定すると他のアプリケーションから >アクセス不可になり、256から512ではアクセス可と説明されています。 どこに書いていましたか? 構文 FreeFile(num) 引数numには、0または1を指定します。 解説 Openメソッドで指定する、使用可能なファイル番号を返します。 引数numに0を指定すると、FreeFileは1〜255の範囲のファイル番号を返します。 引数numに1を指定すると、FreeFileは256〜511の範囲のファイル番号を返します。 引数numを省略すると、0が指定されたものとみなします。 Openメソッドで、既に使用されているファイル番号を指定すると、実行時エラーが発生します。FreeFile関数を使うことで、ファイル番号の重複を避けることができます。 |