IBM Lotus Symphony
|
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.
FreeFile
Inteiro
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.
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