[Gambas-user] fastest way to "zero-out" a huge binary file

[Kadaitcha Man]

On 24 January 2010 16:02, kevinfishburne
<kevinfishburne at ...1887...> wrote:

> Excellent, thanks. I seem to have found something horrifying while trying to
> create the file using GAMBAS however; using the SEEK statement with an
> argument greater than 2 GB raises a "Bad argument" error. While that doesn't
> affect my ability to create the file, it kills me later when trying to read
> and write to it. Other than using a different version of GAMBAS all I can
> think to do is to create four 2 GB data files, which will create additional
> overhead in the read/write procedures that access the file. Actually since
> my file is slightly larger than 8 GB I'll need to create five separate
> files. :(

I am using gb3 and have no problem accessing a 3.7GB file:

Stick a button on a form, then:

Private bigfile As String = Application.Path & "/bigfile"

Public Sub _new()

End

Public Sub Form_Open()

End

Public Sub Button1_Click()

  Dim hFile As File
  Dim LastChar As Byte

  hFile = Open bigfile For Input

  ' Should get 3930677248
  Debug Lof(hFile)

  Seek #hFile, 3930677241

  ' Should get 3930677241
  Debug Seek(hFile)

  Read #hFile, LastChar

  ' Should get 3
  Debug LastChar

  Close #hFile

End


Output:
FMain.Button1_Click.22: 3930677248
FMain.Button1_Click.27: 3930677241
FMain.Button1_Click.32: 3

All correct.