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-arvon, joka edustaa Open-lauseella avattujen tiedostojen tiedostotilaa.
Syntaksi
FileAttr(tiedostonumero;palautustyyppi)
FileAttr-funktion syntaksilla on seuraavat argumentit:
| Argumentti | Kuvaus |
|---|---|
| tiedostonumero | Pakollinen. Kokonaisluku. Mikä tahansa kelvollinen tiedostonumero. |
| ReturnType | Pakollinen. Kokonaisluku. Palautettavan tiedon tyypin ilmaiseva luku. Määritä 1, jos haluat palauttaa tiedoston tilan ilmaisevan arvon. Määritä vain 16-bittisissä järjestelmissä 2, jos haluat noutaa käyttöjärjestelmän tiedostokahvan. ReturnType 2:ta ei tueta 32-bittisissä järjestelmissä, ja se aiheuttaa virheen. |
Palautusarvot
Kun returntype-argumenttion 1, seuraavat palautusarvot osoittavat tiedoston käyttötilan:
| Moodi | Arvo |
|---|---|
| Syöte | 1 |
| Esitystapa | 2 |
| Satunnainen | 4 |
| Liitä loppuun | 8 |
| Binaari | 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-funktiolla palautetaan avoimen tiedoston tiedostotila ja tiedostokahva. Tiedostokahva palautetaan vain 16-bittisissä järjestelmissä. 32-bittisissä järjestelmissä 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.