Close [[#]filenum ] [, [#]filenum ...]
или
result = Close( [#filenum] )

filenum

Закрывает файлы, чьи номера файлов передаются в качестве аргументов. Если передается номер неиспользуемого файла, Close возвращает ошибку.

Close без аргументов закрывает все файлы, которые в настоящее время открыты.

Завершение программы с помощью оператора End автоматически закроет все файлы.

Close возвращает ноль (0) в случае успешного завершения и ненулевой код ошибки в противном случае.

' Создать строку и заполнить ее.
Dim buffer As String, f As Integer

buffer = "Hello World within a file."

' Найти первый свободный номер файла.
f = FreeFile

' Открыть файл "file.ext" для бинарного использования, используя номер "f".
Open "file.ext" For Binary As #f

  ' Поместить нашу строку в файл, используя номер "f".
  Put #f, , buffer

' Закрыть файл.  Мы могли бы также сделать 'Close #f', но это необходимо, только если открыто более одного номера.
Close

' Конец программы. (Проверьте файл "file.ext" после запуска, чтобы увидеть вывод.)

• Close может вызываться как функция, которая возвращает код ошибки.
  
• FB выдает ошибку при попытке закрыть неиспользуемый файловый номер, если включена проверка ошибок и если не используется со стилем синтаксиса функции
  
  

• Open
  
• Put (Файловый ввод-вывод)
  
• Get (Файловый ввод-вывод)
  
• FreeFile