Função FreeFile
Retorna o próximo número de arquivo disponível para abrir um arquivo. Use esta função para abrir um arquivo usando um número de arquivo que ainda não está em uso por um arquivo atualmente aberto.
Sintaxe:
FreeFile
Valor de retorno:
Integer
Parâmetros:
Esta função só pode ser usada imediatamente antes de uma instrução Open. FreeFile retorna o próximo número de arquivo disponível, mas não o reserva.
Exemplo:
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 #iNumber, "Primeira linha de texto"
Print #iNumber, "Outra linha de texto"
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