FileGetでデータを取得できない (ID:147810)

名前

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

本文 ご回答ありがとうございます。 以下のようにバッファを確保しましたが、FileGetのところで同じメッセージが出てしまいます。 Dim wd() As Byte wd = System.Text.Encoding.GetEncoding(65001).GetBytes(StrDup(10000, "1")) dim spoint as long=8239 FileGet(fileno, wd, spoint) VB6では以下のようになっているプログラムをvb2010に移植したいのですが。。。 バッファ確保箇所も同じ結果になりませんが、現状影響ないので流してます。 Dim wd() As Byte dim spoint as long wd = String$(5000, "1") For i = 0 To 4999 wd(i) = 0 Next i spoint = 8239 Open FileName For Binary As #1 Get #1, spoint, wd