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 attēlo to failu režīmu failiem, kas atvērti , izmantojot priekšrakstu Atvērt.
Sintakse
FileAttr ( faila_numurs , atgriešanas_tips )
Funkcijas FileAttr sintaksē ir šādi argumenti:
Arguments |
Apraksts |
faila_numurs |
Obligāts arguments. Vesels skaitlis. Jebkura derīga faila numurs. |
returntype |
Obligāts arguments. Vesels skaitlis. Skaitlis, kas norāda atgriežamās informācijas tipu. Norādiet 1, lai atgrieztu vērtību, kas norāda faila režīmu. Tikai 16 bitu sistēmās norādiet 2, lai izgūtu operētājsistēmas faila turi. 32 bitu sistēmās netiek atbalstīts returntype 2, un tas izraisa kļūdu. |
Atgrieztās vērtības
Ja atgrieztā tipaarguments ir 1, tālāk norādītās atgrieztās vērtības norāda faila piekļuves režīmu:
Moda, |
Vērtība |
Ievade |
1 |
Izvade |
2 |
Dažādi |
4 |
Pievienot |
8 |
Binārs |
32 |
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 FileAttr , lai atgrieztu atvērta faila faila režīmu un faila turi. Faila turis tiek atgriezts tikai 16 bitu sistēmās. 32 bitu sistēmās 2 nododot kā otru argumentu, rodas kļūda.
Dim FileNum, Mode, Handle
FileNum = 1 ' Assign file number. Open "TESTFILE" For Append As FileNum ' Open file. Mode = FileAttr(FileNum, 1) ' Returns 8 (Append file mode). Handle = FileAttr(FileNum, 2) ' Returns file handle. Close FileNum ' Close file.