打印本文   关闭窗口

VBfreefile()函数

作者：佚名  文章来源：不详  点击数  更新时间：2008/4/18 14:44:44  文章录入：杜斌  责任编辑：杜斌

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 数据类型。

打印本文   关闭窗口