LibreOffice 7.1 Yardım
Açık bir dosyanın boyutunu bayt cinsinden döndürür.
Lof (DosyaNumarası)
Long
FileNumber: Open deyiminde belirtilen dosya sayısını içeren herhangi bir sayısal ifade.
Açık olmayan bir dosyanın uzunluğunu elde etmek için, FileLen fonksiyonunu kullanın.
Sub ExampleRandomAccess
Dim iNumber As Integer
Dim sText As Variant REM bir değişken olmalı
Dim aFile As String
aFile = "c:\data.txt"
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
#iNumber,1 REM Konumunu baştan itibaren ara
Put #iNumber,, "Bu metnin ilk satırıdır" REM Metni bununla doldurur
Print #iNumber, "Bu metnin ikinci satırıdır"
Print #iNumber,, "Bu metnin üçüncü satırıdır"
Seek #iNumber,2
Get #iNumber,,sText
Print sText
Close #iNumber
iNumber = Freefile
Open aFile For Random As #iNumber Len=32
Get #iNumber,2,sText
Print #iNumber, "Bu metnin yeni bir satırıdır"
Get #iNumber,1,sText
Get #iNumber,2,sText
Put #iNumber,20,"Bu kayıt 20 deki metindir"
Print Lof(#iNumber)
Close #iNumber
End Sub