FreeFile funtzioa
Hurrengo fitxategi-zenbakia itzultzen du fitxategi bat irekitzeko. Funtzio hori erabili fitxategi bat fitxategi-zenbakia erabiliz irekitzeko. Ziurtatu une honetan irekitako fitxategia ez dela ari fitxategi-zenbaki hori erabiltzen.
Osoko zenbakia
Funtzio hau Open instrukzioaren aurretik bakarrik erabil daiteke. FreeFile-k hurrengo fitxategi-zenbakia itzultzen du, baina ez du erreserbatzen.
5 Prozedura-deia ez baliozkoa
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "C:\Users\ThisUser\data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Hau testu-lerro bat da"
Print #iNumber, "Hau beste testu-lerro bat da"
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
Sub ExampleWorkWithAFile
Dim iNumber As Integer
Dim sLine As String
Dim aFile As String
Dim sMsg As String
aFile = "~/data.txt"
iNumber = Freefile
Open aFile For Output As #iNumber
Print #iNumber, "Hau testu-lerro bat da"
Print #iNumber, "Hau beste testu-lerro bat da"
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