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.

Códigos de erro:

5 Chamada de procedimento inválida

67 Arquivos em excesso

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

♥ Doe para nosso projeto! ♥