FreeFile Function
Devuelve'l siguiente númberu de ficheru disponible pa l'apertura d'un ficheru. Esta función utilizar p'abrir un ficheru usando un númberu que nun tea n'usu anguaño por un ficheru abiertu anguaño.
Sintaxis:
FreeFile
Valor de torna:
Enteru
Parámetros:
Esta función namái pue usase darréu delantre d'una instrucción Open. FreeFile devuelve'l númberu de ficheru disponible, pero nun lu acuta.
Exemplu:
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "c:\data.txt"
sMsg = ""
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNúmberu, "Primer llinia de testu"
Print #iNúmberu, "Otra llinia de testu"
Close #iNumber
iNumber = Freefile
Open aFile For Input As #iNumber
While Not eof(#iNumber)
Line Input #iNumber, sLine
If sLine <>"" Then
sMsg = sMsg & sLine & chr(13)
End If
Wend
Close #iNumber
MsgBox sMsg
End Sub