Dim gb As Long = 1024 * 1024 * 1024
        Dim size As Long = 5 * gb
        Dim fs As New IO.FileStream("F:\test.dat", IO.FileMode.Create, _
          IO.FileAccess.Write, IO.FileShare.None)
        fs.Position = size - 1
        fs.WriteByte(0)
        fs.Close()

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist