FClose
Function FClose( file index )
Returns a non zero value if the file represented by file index is closed.
Syntax FCLOSE( 1 )
Remarks
file index is the index to a file previously opened by a successful call to FOpen .
Explicit calls to FClose are not required as all files will be closed when a script terminates, whether due to error, end of file, or the END keyword. It is required before you will be able to open a different file on file index.
See Also:
FOpen FCloseAll File and Directory functions
Example Script
NUMBER x = 1,i
STRING a = "*.*"
a = FINDFIRST(a)
WHILE LEN(a)
IF NOT FOPEN(x,a) THEN ' x contains 1 on the first pass
x --
ELSE
PRINT "Opened "; a; " as "; x
ENDIF
a = FINDNEXT()
x ++ ' Increment x to a different file index
WEND
PRINT "Opened "; x - 1; " files - haven't closed any yet"
FOR i = 1 TO x
IF NOT FCLOSE(i) THEN
PRINT i; " was not a valid file handle!"
ELSE
PRINT "Closed "; i
ENDIF
NEXT
Script Output
(your results may be different)
Opened CHDIR.txt as 1
Opened CHR.txt as 2
Opened COS.txt as 3
Opened CWD.txt as 4
Opened EXP.txt as 5
Opened EXP10.txt as 6
Opened EXP2.txt as 7
Opened ABS.txt as 8
Opened ACOS.txt as 9
Opened ASC.txt as 10
Opened ASIN.txt as 11
Opened ATN.txt as 12
Opened FCLOSE.txt as 13
Opened FCLOSEALL.txt as 14
Opened FEOF.txt as 15
Opened FGETC.txt as 16
Opened FGETS.txt as 17
Opened FILEEXISTS.txt as 18
Opened FILELEN.txt as 19
Opened FINDFIRST Example 1.txt as 20
Opened FINDFIRST Example 2.txt as 21
Opened FINDNEXT Example 1.txt as 22
Opened FINDNEXT Example 2.txt as 23
Opened FOPEN.txt as 24
Opened FPUTC.txt as 25
Opened RIGHT.txt as 26
Opened RMDIR.txt as 27
Opened FPUTS.txt as 28
Opened FSeek.txt as 29
Opened FTELL.txt as 30
Opened HEX.txt as 31
Opened INSTR.txt as 32
Opened INT.txt as 33
Opened KILL.txt as 34
Opened LCASE.txt as 35
Opened LEFT.txt as 36
Opened LEN.txt as 37
Opened LOG.txt as 38
Opened LOG10.txt as 39
Opened LOG2.txt as 40
Opened LTRIM.txt as 41
Opened MID.txt as 42
Opened MKDIR.txt as 43
Opened NAME.txt as 44
Opened RTRIM.txt as 45
Opened Test.txt as 46
Opened SGN.txt as 47
Opened 47 files - haven't closed any yet
Closed 1
Closed 2
Closed 3
Closed 4
Closed 5
Closed 6
Closed 7
Closed 8
Closed 9
Closed 10
Closed 11
Closed 12
Closed 13
Closed 14
Closed 15
Closed 16
Closed 17
Closed 18
Closed 19
Closed 20
Closed 21
Closed 22
Closed 23
Closed 24
Closed 25
Closed 26
Closed 27
Closed 28
Closed 29
Closed 30
Closed 31
Closed 32
Closed 33
Closed 34
Closed 35
Closed 36
Closed 37
Closed 38
Closed 39
Closed 40
Closed 41
Closed 42
Closed 43
Closed 44
Closed 45
Closed 46
Closed 47
48 was not a valid file handle!