tagCANDY CGI VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
VBレスキュー(花ちゃん)の Visual Basic 6.0用 掲示板
[ツリー表示へ]  [ワード検索]  [Home]

タイトル 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関数を使うことで、ファイル番号の重複を避けることができます。

- 関連一覧ツリー をクリックするとツリー全体を一括表示します)

古いスレッドにレスはつけられません。