IBM Lotus Symphony


Função FreeFile [Tempo de Execução]

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á sendo usado por um arquivo aberto no momento.

Sintaxe:

FreeFile

Valores de Retorno:

Inteiro

Parâmetros:

Esta função pode ser usada imediatamente na frente apenas de uma instrução Open. FreeFile retorna o próximo número de arquivo disponível, mas não reserva-o.

Códigos de Erro

5 Chamada de procedimento inválida

67 Excesso de arquivos

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"

Fechar #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

Fechar #iNumber

Msgbox sMsg

End Sub


Feedback do Produto | Documentação Adicional | Marcas Registradas