VBfreefile()函数

文章作者 100test 发表时间 2007:11:14 12:59:15
来源 100Test.Com百考试题网

FreeFile[(rangenumber)]

可选的参数 rangenumber 是一个 Variant，它指定一个范围，以便返回该范围之内的下一个可用文件号。指定 0（缺省值）则返回一个介于 1 – 255 之间的文件号。指定 1 则返回一个介于 256 – 511 之间的文件号。

说明

使用 FreeFile 提供一个尚未使用的文件号。


FreeFile 函数示例
本示例使用 FreeFile 函数来返回下一个可用的文件号。在循环中，共打开五个输出文件，并在每个文件中写入一些数据。

Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ’ 循环五次。
FileNumber = FreeFile ’ 取得未使用的文件号。
Open "TEST" &. MyIndex For Output As #FileNumber ’ 创建文件名。
Write #FileNumber, "This is a sample." ’ 输出文本至文件中。
Close #FileNumber ’ 关闭文件。
Next MyIndex


Variant 数据类型
一种特殊的数据类型，可以包含数值、字符串或日期数据，还包含自定义类型和特殊数值 Empty 和 Null。Variant 数据类型有 16 字节的数值存储大小，可以包含的数据可达 Decimal 的范围，或 22- 字节( 加上字符串长度 ) 的字符存储大小，而且可存储任何字符文本。VarType 函数定义了如何处理 Variant 中的数据。对所有变量，如果没有明确声明它们是其它数据类型，则它们都变成 Variant 数据类型。