Close

Stream I/O function to terminate access to a device

Syntax
	Close [[#]filenum ] [, [#]filenum ...]
				 or 
	result = Close( [#filenum] )

Parameters
	filenum
		List of file numbers to close.

Return Value
	Close returns a 32 bit KeyPgLongLong: a zero (0) on success and a non-zero error 
	code otherwise.

Description
	Closes the files whose file numbers are passed as arguments. If an 
	unused file number is passed, Close returns an error.

	Close without arguments closes all the files presently opened.

	Terminating the program using an KeyPgEndEnd statement will automatically close 
	all files.

	The error code returned by Close can be checked using KeyPgErrErr in the next 
	line. The function version of  Close returns directly the error code as 
	a 32 bit KeyPgLongLong.

Example
	' Create a string and fill it.
	Dim buffer As String, f As Integer

	buffer = "Hello World within a file."

	' Find the first free file number.
	f = FreeFile

	' Open the file "file.ext" for binary usage, using the number "f".
	Open "file.ext" For Binary As #f

	  ' Place our string inside the file, using number "f".
	  Put #f, , buffer

	' Close the file.  We could also do 'Close #f', but it's only necessary if more than one number is open.
	Close

	' End of program. (Check the file "file.ext" upon running to see the output.)

Differences from QB
	* Close can be called as a function that returns an error code.
	* FB throws an error on trying to close an unused file number, if 
	  compiled with error checking and if not used with the function-style 
	  syntax

See also
	* KeyPgOpenOpen
	* KeyPgPutfileioPut (File I/O) 
	* KeyPgGetfileioGet (File I/O)
	* KeyPgFreefileFreeFile

