FreeFile
Se un programma usa più file contemporaneamente, occorre assegnare un handle diverso a ogni file aperto. Se i file sono molti, può essere difficile per il programmatore ricordare tutti gli handle correntemente in uso. Per evitare questo problema, si può usare la funzione FreeFile, la quale torna automaticamente il primo handle libero.
In questo semplice esempio i numeri vengono letti dal file "numeri.txt" e scritti sui due file "pari.txt" e "dispari.txt" a seconda appunto che siano pari o dispari:
Dim pari As Integer, dispari As Integer, num As Integer
Dim valore As Stringa
num = FreeFile()
pari = FreeFile()
dispari = FreeFile()
Open "numeri.txt" For Input As #num
Open "pari.txt" For Output As #pari
Open "dispari.txt" For Output As #dispari
Do Until EOF(num)
Line Input #num, valore
If Val(valore) Mod 2 = 0 Then
Print #pari, valore
Else
Print #dispari, valore
End If
Loop
Si osservi che num, pari e dispari sono tutte variabili Integer. E' probabile che la FreeFile assegni gli handle in ordine (1, 2, 3), ma questo non ha nessuna importanza, dal momento che la procedura è automatizzata e il programmatore non deve occuparsene.
Sito realizzato in base al template offerto da
http://www.graphixmania.it