别一直 #1了!
最好用 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