Piezīme.: Šajā tēmā aprakstītā funkcija, metode, objekts vai rekvizīts tiek atspējots, ja Microsoft Jet Expression Service darbojas smilškastes režīmā, tā neļauj novērtēt potenciāli nedrošas izteiksmes. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīms" sadaļā Palīdzība.
Atgriež Long vērtību, kas norāda ar priekšrakstu Open atvērta faila lielumu baitos.
Sintakse
LOF( faila_numurs )
Nepieciešamais failaarguments ir Vesels skaitlis, kurā ietilpst derīga faila numurs.
Piezīme.: Izmantojiet funkciju FileLen , lai iegūtu neatveramā faila garumu.
Piemērs
Piezīme.: Turpmākajos piemēros redzama šīs funkcijas izmantošana Visual Basic for Applications (VBA) modulī. Lai iegūtu papildinformāciju par darbu ar VBA, nolaižamajā sarakstā atlasiet Uzziņas materiāli izstrādātājiem blakus meklēšanas lodziņam un ievadiet šajā lodziņā vienu vai vairākus vārdus.
Šajā piemērā izmantota funkcija LOF , lai noteiktu atvērta faila lielumu. Šajā piemērā tiek pieņemts, TESTFILE ka fails ir teksta fails, kurā ir parauga dati.
Dim FileLength
Open "TESTFILE" For Input As #1 ' Open file.
FileLength = LOF(1) ' Get length of file.
Close #1 ' Close file.
