怎么关闭FreeFile()打开的文件?

Question

最好是做一个判断,并且能够全部关闭,VB有这样的操作吗？

Answer 1

dim i as integer
i=freefile
open ...
close #i

Answer 2

If Dir(App.Path & "\sysupdate.txt") <> "" Then
  dim filenumber as long 
  filenumber = FreeFile
  Open App.Path & "\sysupdate.txt" For Input As #filenumber
    If Not EOF(filenumber) Then
        Line Input #filenumber, nextline
        datetemp = Mid(Trim(nextline), 6)
    End If
  Close #filenumber   '关闭文件
End If

Answer 3

我的问题是，如果本来有FreeFile产生的句柄，因为其他的原因没有关闭，现在想做个判断，找出来，关了它。

Answer 4

close
就可以关闭全部在你的程序中已打开的文件