IBM Lotus Symphony
|
يتم ارجاع رقم الملف المتاح التالي لفتح ملف. استخدم هذه الوظيفة لفتح ملف باستخدام رقم الملف الذي لا يتم استخدامه بالفعل بواسطة ملف مفتوح حاليا.
FreeFile
رقم صحيح
يمكن فقط استخدام هذه الوظيفة مباشرة أمام عبارة Open. يقوم 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