Open filename for Binary Access {Read | Write | Read Write} as [#]filenum

open filename for binary Access Read as #filenum
open filename for binary Access Write as #filenum
open filename for binary Access Read Write as #filenum

Read
Write
Read Write

Access используется с оператором Open для указания привилегий: чтения, записи, или чтения и записи. Если опция Access не указана, то устанавливается Read Write.

Этот пример показывает, как открыть файл "data.raw" с доступом Read , а затем "data.out" с доступом Write, в режиме Binary. Свободный файловый номер возвращается с помощью FreeFile.

Dim As Integer o

  '' получить свободный файловый номер.
  o = FreeFile
  
  '' открыть файл с доступом только для чтения.    
  Open "data.raw" For Binary Access Read As #o
    
    '' создадим буфер в памяти, это весь размер файла
    Dim As UByte file_char( LOF( o ) - 1 )

      '' получаем содержимое файла в буфер.      
      Get #o, , file_char()
    
  Close
  
  '' получить другой свободный файловый номер.
  o = FreeFile
  
  '' открыть файл с доступом только для записи.    
  Open "data.out" For Binary Access Write As #o

    '' Поместим содержимое буфера в новый файл.      
    Put #o, , file_char()
    
  Close

  Print "Copied file ""data.raw"" to file ""data.out"""

  Sleep

• Не известны.
  
  

• Open
  
• Read
  
• Write