Introduction
Text Documents (Writer)
HTML Documents (Writer Web)
Spreadsheets (Calc)
Presentations (Impress)
Drawings (Draw)
Database Functionality (Base)
Formulae (Math)
Charts and Diagrams
Macros and Scripting
Office Installation
Common Help Topics
OneOffice Logo

Close Statement

Closes a specified file that was opened with the Open statement.

Syntax:

Close Statement diagram


Close [[#]fileNum [, [#]fileNum2 [,...]]]

Parameters:

fileNum: Any integer expression that specifies the number of the data channel that was opened with the Open statement.

Example:

  Sub ExampleWorkWithAFile      Dim iNumber As Integer      Dim sLine As String      Dim aFile As String      Dim sMsg As String      aFile = "C:\Users\ThisUser\data.txt"      iNumber = Freefile      Open aFile For Output As #iNumber      Print #iNumber, "This is a line of text"      Print #iNumber, "This is another line of text"      Close #iNumber      iNumber = Freefile      Open aFile For Input As iNumber      While Not eof(iNumber)          Line Input #iNumber, sLine          If sLine <>"" Then              sMsg = sMsg & sLine & chr(13)          End If      Wend      Close #iNumber      MsgBox sMsg  End Sub
  Sub ExampleWorkWithAFile      Dim iNumber As Integer      Dim sLine As String      Dim aFile As String      Dim sMsg As String      aFile = "~/data.txt"      iNumber = Freefile      Open aFile For Output As #iNumber      Print #iNumber, "This is a line of text"      Print #iNumber, "This is another line of text"      Close #iNumber      iNumber = Freefile      Open aFile For Input As iNumber      While Not eof(iNumber)          Line Input #iNumber, sLine          If sLine <>"" Then              sMsg = sMsg & sLine & chr(13)          End If      Wend      Close #iNumber      MsgBox sMsg  End Sub