VKS писал(а):Open file_For Binary As #2
Put #2, , ByteA()
Close #2
При условии, что ByteA действительно состоит из 10 байт в файл запишется именно 10 байт. Для успокоения совести только что проверил таким кодом:
- Код: Выделить всё
Sub WriteToFile()
ReDim b(0 To 9) As Byte
Dim i As Long
For i = 0 To 9
b(i) = i
Next i
Dim nFile As Long: nFile = FreeFile
Open "C:\Temp\Test.dat" For Binary As nFile
Put nFile, , b
Close nFile
End Sub
Размер файла 10 байт.
З.Ы. Про ByVal действительно несколько мутно выразился...
. Мне программа теперь даже нравиться начала.
