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 Longn, joka edustaa Avaa-lausekkeella avattujen tiedostojen tiedostotilaa.
Syntaksi
FileAttr(filenumber,returntype)
FileAttr-funktion syntaksissa on seuraavat argumentit:
| Argumentti | Kuvaus |
|---|---|
| tiedostonumero | Pakollinen. Kokonaisluku. Mikä tahansa kelvollinen tiedostonumero. |
| returntype | Pakollinen. Kokonaisluku. Luku, joka ilmaisee palautettavien tietojen tyypin. Määritä 1, jos haluat palauttaa tiedostotilaa ilmaisevan arvon. Määritä vain 16-bittisessä järjestelmässä 2 käyttöjärjestelmän tiedostokahvan noutamista varten. returntype 2 ei ole tuettu 32-bittisessä järjestelmässä ja aiheuttaa virheen. |
Palautusarvot
Kun palautustyyppi-argumenttion 1, seuraavat palautusarvot osoittavat tiedoston käyttötilan:
| Moodi | Arvo |
|---|---|
| Syöte | 1 |
| Esitystapa | 2 |
| Satunnainen | 4 |
| Liitä loppuun | 8 |
| Binary | 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-funktion avulla palautetaan avoimen tiedoston tiedostotila ja tiedostokahva. Tiedostokahva palautetaan vain 16-bittisessä järjestelmässä. 32-bittisessä järjestelmässä 2:n ohittaminen 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.