FileAttr-funktio

Huomautus: Microsoft haluaa tarjota sinulle ajantasaisinta ohjesisältöä mahdollisimman nopeasti omalla kielelläsi. Tämä sivu on käännetty automaation avulla, ja siinä saattaa olla kielioppivirheitä tai epätarkkuuksia. Tarkoitus on, että sisällöstä on sinulle hyötyä. Kertoisitko sivun alareunassa olevan toiminnon avulla, oliko tiedoista hyötyä? Tästä pääset helposti artikkelin englanninkieliseen versioon.

Huomautus: Tässä ohjeaiheessa kuvattu funktio, menetelmä, objekti tai ominaisuus ei ole käytössä, jos Microsoft Jet Expression Service toimii eristetyssä tilassa, mikä estää mahdollisesti vahingollisten lausekkeiden arvioimisen. Katso lisätietoja eristetystä tilasta ohjeen ”Eristetty tila” -kohdasta.

Palauttaa Long edustava käyttämällä Open -lausetta avattujen tiedostojen tiedosto-tilassa.

Syntaksi

FileAttr ( tiedostonumero , palautustyyppi )

FileAttr -funktiosyntaksissa on seuraavat argumentit:

Argumentti

Kuvaus

tiedostonumero

Pakollinen. Kokonaisluku. Mikä tahansa kelvollinen tiedoston numero.

palautustyyppi

Pakollinen. Kokonaisluku. Luku, joka ilmaisee tietotyyppi palauttaa. Määritä 1, funktio palauttaa arvon, joka ilmaisee tiedostotila. Vain 16-bittinen järjestelmiin Määritä hakemiseen käyttöjärjestelmä-täyttökahva 2. palautustyyppi 2 ei tue 32-bittinen järjestelmien ja aiheuttaa virheen.

Palautusarvot

Kun palautustyyppiargumentti on 1, seuraavat palautusarvojen osoittavat tiedoston käyttöoikeuksien tilan:

Tila

Arvo

Syöte

1

Tulos

2

Satunnainen

4

Liitä loppuun

8

Binaarinen

32

Esimerkki

Huomautus: Seuraavissa esimerkeissä kerrotaan, kuinka tätä funktiota käytetään Visual Basic for Applications (VBA) -moduulissa. Jos haluat lisätietoja VBA:n käytöstä, valitse Sovelluskehittäjän opasHaku-kentän viereisestä luettelosta ja anna yksi tai useampi hakuehto hakukenttään.

Tässä esimerkissä FileAttr -funktio palauttaa tiedoston tilan ja tiedoston niin, Avaa tiedosto. Täyttökahva palautetaan vain 16-bittinen järjestelmien; 32-bittinen järjestelmiin arvon 2 välittäminen toisena argumenttina aiheuttaa virheen.

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.
Kehitä Office-taitojasi
Tutustu koulutusmateriaaliin
Saat uudet ominaisuudet ensimmäisten joukossa
Liity Office Insider -käyttäjiin

Oliko näistä tiedoista hyötyä?

Kiitos palautteesta!

Kiitos palautteestasi! Näyttää siltä, että Office-tukiedustajamme avusta voi olla sinulle hyötyä.

×