Запись данных в Random файле при нехватке места на диске

[Source]

Сделал тест, который показал, что при нехватке места на диске запись будет записана частично. Можно установить какие-то флаги или есть какой оператор, чтобы Put не записывала запись, когда той не хватает места на диске при записи (чтобы не делать дополнительные проверки)?

Код: Выделить всё

'пример демонстрирует, что при нехватке места на диске запись Random будет записана частично (размер
'записаного файла не кратен 4*2500=10000). Файл del.tmp заполняет всё свободное место диска!
Option Explicit

Private Type stru
    b(2500) As Long
End Type

Private Sub Form_Load()
Dim a As stru, hFile As Integer, i As Long
    On Error GoTo endPrg
    hFile = FreeFile
    Open "D:\del.tmp" For Random As #hFile Len = Len(a)
1   i = i + 1
    Put hFile, i, a
    GoTo 1
endPrg:
    Unload Me
End Sub