FreeFile Function
āĻāĻāĻāĻŋ āĻĢāĻžāĻāϞ āĻā§āϞāĻžāϰ āĻāύā§āϝ āĻĒāϰāĻŦāϰā§āϤā§āϤ⧠āĻāĻĒāϏā§āĻĨāĻŋāϤ āĻĢāĻžāĻāϞ āϏāĻāĻā§āϝāĻž āĻĒā§āϰāĻĻāĻžāύ āĻāϰā§āĨ¤ āĻŦāϰā§āϤāĻŽāĻžāύ⧠āĻā§āϞāĻž āĻĢāĻžāĻāϞ āĻĻā§āĻŦāĻžāϰāĻž āĻāϤā§āĻŽāϧā§āϝā§āĻ āĻŦā§āϝāĻŦāĻšā§āϤ āύ⧠āĻāĻŽāύ āĻĢāĻžāĻāϞ āϏāĻāĻā§āϝāĻž āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰ⧠āĻāĻāĻāĻŋ āĻĢāĻžāĻāϞ āĻā§āϞāĻžāϰ āĻāύā§āϝ āĻāĻ āĻĢāĻžāĻāĻļāύāĻāĻŋ āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰāĻž āĻšā§āĨ¤
āϏāĻŋāύāĻā§āϝāĻžāĻā§āϏ:
FreeFile
āĻĒā§āϰāĻĻāĻžāύ āĻŽāĻžāύ:
Integer
āĻĒā§āϝāĻžāϰāĻžāĻŽāĻŋāĻāĻžāϰ:
āĻāĻ āĻĢāĻžāĻāĻļāύāĻāĻŋ āϤāĻžā§âāĻā§āώāĻŖāĻŋāĻāĻāĻžāĻŦā§ āĻļā§āϧā§āĻŽāĻžāϤā§āϰ āĻāĻāĻāĻŋ āĻāĻĒā§āύ āϏā§āĻā§āĻāĻŽā§āύā§āĻā§āϰ āϏāĻžāĻŽāύ⧠āĻŦā§āϝāĻŦāĻšāĻžāϰ āĻāϰāĻž āϝāĻžāĻŦā§āĨ¤ FreeFile āĻĒāϰāĻŦāϰā§āϤ⧠āĻŦāĻŋāĻĻā§āϝāĻŽāĻžāύ āĻĢāĻžāĻāϞ āϏāĻāĻā§āϝāĻž āĻĒā§āϰāĻĻāĻžāύ āĻāϰā§, āĻāĻŋāύā§āϤ⧠āĻāĻāĻŋ āϏāĻāϰāĻā§āώāĻŖ āĻāϰā§āύāĻžāĨ¤
āĻāĻĻāĻžāĻšāϰāĻŖ:
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