Opmerking
De functie, de methode, het object of de eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandboxmodus. Hierdoor wordt de evaluatie van potentieel onveilige expressies voorkomen. Zoek in de Help naar 'sandbox-modus' voor meer informatie over de sandbox-modus.
Geeft een waarde van het type Long als resultaat waarmee de bestandsmodus wordt aangegeven van bestanden die zijn geopend met de instructie Open.
Syntaxis
FileAttr(bestandsnummer;retourtype)
De syntaxis van de functie FileAttr heeft deze argumenten:
| Argument | Beschrijving |
|---|---|
| bestandsnummer | Vereist. Geheel getal. Een geldig bestandsnummer. |
| retourtype | Vereist. Geheel getal. Getal dat aangeeft welk type informatie moet worden geretourneerd. Geef 1 op voor een waarde die de bestandsmodus aangeeft. Op 16-bits systemen kunt u ook 2 opgeven om een bestandsingang van het besturingssysteem op te halen. ReturnType 2 wordt niet ondersteund in 32-bits systemen en veroorzaakt een fout. |
Retourwaarden
Als het argument returntype1 is, geven de volgende retourwaarden de toegangsmodus van het bestand aan:
| Modus | Waarde |
|---|---|
| Invoer | 1 |
| Uitvoer | 2 |
| Willekeurig | 4 |
| Toevoegen | 8 |
| Binair | 32 |
Voorbeeld
Opmerking
In de volgende voorbeelden wordt het gebruik van deze functie in een VBA-module (Visual Basic for Applications) toegelicht. Meer informatie over het werken met VBA vindt u door in de vervolgkeuzelijst naast Zoeken de optie Referentie voor ontwikkelaars te selecteren en een of meer termen in het zoekvenster te typen.
In dit voorbeeld wordt de functie FileAttr gebruikt om de bestandsmodus en bestandsingang van een geopend bestand op te vragen. De bestandsingang wordt alleen geretourneerd op 16-bits systemen; Als u op een 32-bits systeem 2 doorgeeft als tweede argument, treedt er een fout op.
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.