2GB以上のファイルを扱う方法

巨大なファイルを作ることはできたズラｗ

これを応用したら、もしかして読める？


　　Dim i As Long
　　Dim h As Long
　　Dim m As Long
　　Dim l As Long
　　Dim sz As Long
　　
　　sz = &H80000
　　h = CreateFile("c:\temp\big.txt", GENERIC_WRITE, _
　　　　0, 0, OPEN_ALWAYS, FILE_ATTRIBUTE_NORMAL, 0)
　　m = GlobalAlloc(GMEM_FIXED, sz)
　　For i = 1 To 100
　　　　Call WriteFile(h, m, ByVal sz, VarPtr(l), ByVal 0)
　　Next
　　Call GlobalFree(m)
　　Call CloseHandle(h)

あちゃ、GETで2Gを超えるシークは出来なかったです。

ReadFileで一気に読み込むのも重いので、SetFilePointerが有力でしょう。

CreateFileやReadFile APIをつかってはどうでしょうか。

ただし、VBの場合longだと
2147483647をこえると-2147483648から-1の値になるので
注意が必要です。
(vbでunsignedみたいなのってあったかも・・・)

ちなみに試したことはありません。

前回の回答は少し間違っていたけど、

3GB目から128byteは
Dim wk(0 To 127) As Byte
Open "hoge" For Random As #1 Len = 128
Get #1, 3@ * 1024@ * 1024@ * 1024@ / 128@ + 1, wk
Close #1
で出来るはず。
Len節でレコードサイズを128byteで指定しているので
Getの第２引数は128byte単位のレコード番号です。
開始位置が128で割り切れない場合は一工夫が必要です。

お恥ずかしい

アドレスまちがった

参考URL：http://www.angel.ne.jp/~mike/tips.html

> Open "hoge" For Random As #1 Len = 128

FreeFile()関数を使用した方が無難と思われ（ｗ

Dim wk(0 To 127) As Byte

Open "hoge" For Random As #1 Len = 128
Get #1, 2@ * 1024@ * 1024@ * 1024@ / 128@, wk
Close #1

恥ずかしながら、SEEK関数の便利さがよくわからなかった。

とりあえず、＃３に便乗して、SetFilePointerのサンプル
(googleでひっかかったところで、よさ気なところ)

http://oshiete1.goo.ne.jp/kotaeru.php3?q=570918

> ACCESSで、2GB以上のファイルを扱いたいのですが、

外部ファイルからデータを取込みたいということかな？

VBでのファイル操作に関して言えば
SEEK 関数の引数に指定できる範囲は
1 ～ 2,147,483,647 (long)
なので仕様として不可能です。
API関数 "SetFilePointer" を使用すれば可能かも？

今のソースはどうなっているんだ？