IBM Lotus Symphony


Função FreeFile [Runtime]

Devolve o número de ficheiro disponível seguinte para abrir um ficheiro. Utilize esta função para abrir um ficheiro utilizando um número de ficheiro que não se encontre em utilização por um ficheiro actualmente aberto.

Sintaxe:

FreeFile

Valor de retorno:

Integer

Parâmetros:

Esta função apenas pode ser utilizada imediatamente após uma instrução Open. FreeFile devolve o número de ficheiro seguinte, mas não o reserva.

Códigos de erro

5 Chamada de procedimento não válido

67 Demasiados ficheiros

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, "First line of text"

Print #iNumber, "Another line of text"

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


Comentários sobre o produto | Documentação adicional | Marcas comerciais