VB初心者友の会 - 超初心者専用Q&A掲示板過去ログ

VisualBasic 6 で　複数FDへのバイナリデータ書込み　及び読み込み
処理を作りたいのですが　下記の問題で困ってしまいました。
サンプルソースを作成しました。どこかに基本的なミスがあるかと思うのですが　
回避方法どなたか教えていただけませんでしょうか　お願いいたします。


再現方法
確認環境　WindowsNT 4 VisualBasic 6.0(SP5)

1.FORM1 にボタンを２つ作成し、下記ボタン処理を書きます。
   [PUT]ボタン　Command1_Click() に対応
   [GET]ボタン　Command2_Click() に対応

2.モジュール module1.bas を作成して　構造体定義を書きます。

3.実行します。
(1)[PUT]ボタンにより　FD1 FD2 2枚のFDに　a:\test.bin を書込みます。
(2)[GET]ボタンにより　2枚の　FD から a:\test.bin を読み込むと
　1枚目は　正常に読込みできるが　2枚目で
　「実行時エラー　'75' パス名が無効です。」　となります。

(3)「媒体交換してください」で媒体を交換しなければ正常に読めます。
(4)FD1 FD2 どちらを先に読んでも1枚目はok 2枚目はNG(媒体の問題ではない)

サンプルソース

'構造体定義　module1.basファイルに定義
Type Record                     ' ユーザー定義型を定義します。
   ID As Integer
   Name As String * 20
End Type

'以下　form1.frm に定義
 
'[PUT]ボタン処理
Private Sub Command1_Click()

  Dim MyRecord As Record   ' 変数を宣言します。

  ' ファイルをランダム アクセス モードで開きます。
  Open "a:\test.bin" For Random As #1 Len = Len(MyRecord)
  MyRecord.ID = 1                    ' ID を定義します。
  MyRecord.Name = "My Name"          ' 文字列を作成します。
  Put #1, 1, MyRecord     ' レコードをファイルに書き込みます。
  Close #1                        ' ファイルを閉じます。

  MsgBox ("媒体交換してください")

  ' ファイルをランダム アクセス モードで開きます。
  Open "a:\test.bin" For Random As #1 Len = Len(MyRecord)
  MyRecord.ID = 2                    ' ID を定義します。
  MyRecord.Name = "My Name"          ' 文字列を作成します。
  Put #1, 1, MyRecord     ' レコードをファイルに書き込みます。
  Close #1                        ' ファイルを閉じます。

End Sub


'[Get]ボタン処理
Private Sub Command2_Click()

  Dim MyRecord As Record   ' 変数を宣言します。

  Open "a:\test.bin" For Random As #1 Len = Len(MyRecord)
  Get #1, 1, MyRecord
  Close #1

  MsgBox ("媒体交換してください")

  Open "a:\test.bin" For Random As #1 Len = Len(MyRecord)
  Get #1, 1, MyRecord
  Close #1
End Sub