不思議なエラー？ (ID:111811)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 理由は分かりませんが、データファイルが破損しているか、もしくは 読みこみ位置を間違えた事によって、異常なデータとして読み込まれて しまっているのだと思われます。 Variantに格納できる型の中には、VBからは利用できないものも存在します。 # 例えば、VT_UI2(符号無し16bit整数型)や、VT_HRESULTなどです。 Option Explicit Private Const FName As String = "C:\A.BIN" Private Sub Command1_Click() Const VT_UI4 As Integer = 19 Dim V As Variant Dim F As Integer F = FreeFile(0) If Dir(FName) <> "" Then Kill FName End If Open FName For Binary As #F 'Long型を格納したVariant値をバイナリ出力する。 V = CLng(1234567) Put #F, , V '先頭2バイトに格納されるデータ型領域を、vbLong値[&H0003]から、 '符号無し32bit整数型を表す値に変更する。 Put #F, 1, VT_UI4 Close #F F = FreeFile(1) Open FName For Binary As #F '改めて、Variant変数に読み直してみる(ここでエラー発生) Get #F, , V Close #F End Sub