Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут
закрыты.
Читайте
требования к создаваемым темам.
-
Source
-
- Постоялец

-
-
- Сообщения: 351
- Зарегистрирован: 04.09.2007 (Вт) 11:21
Source » 05.11.2007 (Пн) 20:53
Сделал тест, который показал, что при нехватке места на диске запись будет записана частично. Можно установить какие-то флаги или есть какой оператор, чтобы 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
Вернуться в Visual Basic 1–6
Кто сейчас на конференции
Сейчас этот форум просматривают: AhrefsBot, Google-бот и гости: 2