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!