我在使用開啟二進制檔案時發生的錯誤訊息如下:
執行階段錯誤 '458':
此變數使用了 Visual Basic 不支援的 Automation 類型
程式碼如下:
Dim h, B, LF&
h = FreeFile
Open "c:\aaa.txt" For Binary Access Read As h
B = 1
LF& = LOF(h)
Do Until EOF(h)
If LF& - Loc(h) ＜= B Then
B = LF& - Loc(h) + 1
End If
memP = Space$(B)
Get h, , memP ＜=====偵錯點位置