Vrijgave van filenumber bij geopend bestand via CLOSE statement ?

[Bart Brabants]

Beste,

In VB bestaat een OPEN statement en een CLOSE statement voor een file. Toegang tot de file is gebasseerd op een filenumber.
Ik veronderstel dat na een OPEN statement, waarbij een filenumber toegekend wordt aan een file, het CLOSE statement de bewuste filenumber van dat bestand opnieuw vrijgeeft.
Mijn vraag: Indien ik dus wil controleren of een bestand nog open is, dien ik dan in het programma de filenumber van het bestand te controleren of deze in de geldige range van filenumbers zit ?
Voorbeeld:

Public Sub subWriteToFile()
Dim Teller As Integer
Dim GFile As Integer
On Error GoTo errorhandler

'Open file met gegevens
GFile = FreeFile
Open "C:\GData.dat" For Random As GFile Len = 6

'Alle data naar file wegschrijven
For Teller = 1 To AantalGeg + 1
Put GFile, Teller, GData(Teller - 1)
Next Teller

'File sluiten
Close #GFile

Exit Sub
errorhandler:
'File sluiten
if GFile >= 1 and GFile <= 511 then 'Geldig filenumbe rtussen 1 en 511
Close #GFile
end if
'Error loggen
subErrorlog ("Writing: subWriteToFile")
End Sub

Vriendelijke groeten,

Bart