Funkcija FileAttr

Piezīme.: Mēs vēlamies sniegt jums visjaunāko palīdzības saturu jūsu valodā, cik vien ātri to varam. Šī lapa ir tulkota automatizēti, un tajā var būt gramatiskas kļūdas un neprecizitātes. Mūsu nolūks ir šo saturu padarīt jums noderīgu. Vai lapas lejasdaļā varat mums pavēstīt, vai informācija jums noderēja? Ērtai atsaucei šeit ir šis raksts angļu valodā.

Piezīme.: Funkcija, metodi, objektu vai rekvizītu, kas aprakstīts šajā tēmā ir atspējots, ja Microsoft Jet Expression Service ir atvērta smilškastes režīmu, kas neļauj iespējami nedrošās izteiksmes novērtēšanas. Lai iegūtu papildinformāciju par smilškastes režīmu, meklējiet "smilškastes režīma" palīdzībā.

Atgriež Long, kas norāda faila režīmu failiem, kas atvērti, izmantojot Open priekšrakstu.

Sintakse

FileAttr ( faila_numurs , Atgrieztais_tips )

FileAttr sintaksē ir šādi argumenti:

Arguments

Apraksts

faila_numurs

Obligāts. Vesels skaitlis. Jebkuru derīgu faila numurs.

Atgrieztais_tips

Obligāts. Vesels skaitlis. Skaitli, kas norāda informācijas tipu, lai atgrieztu. Norādiet 1, lai atgrieztu vērtību, kas norāda faila režīmu. 16 bitu sistēmām, norādītu 2. darbību, lai izgūtu operētājsistēmas faila turi. Atgrieztais_tips 2 netiek atbalstīts 32 bitu sistēmās un izraisa kļūdu.

Atgriež vērtības

Kad Atgrieztais_tipsarguments ir 1, šajos piemēros tiek atgriezts vērtības norāda failu piekļuves režīmu:

Režīms

Vērtība

Ievade

1

Izvades

2

Izlases

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ā funkcija FileAttr , lai atgrieztu atvērt failu faila režīmu un faila turi. Faila turis tiek atgriezts tikai 16 bitu sistēmām; 32 bitu sistēmām, iet kā otrais arguments 2, radīsies 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.
Paplašiniet savas Office prasmes
Iepazīties ar apmācību
Esiet pirmais, kas saņem jaunās iespējas
Pievienoties Office Insider programmai

Vai šī informācija bija noderīga?

Paldies par jūsu atsauksmēm!

Paldies par atsauksmēm! Šķiet, ka varētu būt noderīgi sazināties ar kādu no mūsu Office atbalsta aģentiem.

×