FileAttr, functie
Van toepassing op
Opmerking
De functie, methode, object of eigenschap die in dit onderwerp wordt beschreven, is uitgeschakeld als de Microsoft Jet Expression-service wordt uitgevoerd in de sandbox-modus, waardoor de evaluatie van mogelijk onveilige expressies wordt voorkomen. Zoek naar 'sandbox-modus' in de Help voor meer informatie over de sandboxmodus.
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(filenumber,returntype)
De syntaxis van de functie FileAttr heeft deze argumenten:
| Argument | Beschrijving |
|---|---|
| bestandsnummer | Vereist. Geheel getal. Elk 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
Wanneer het argument returntype1 is, geven de volgende retourwaarden de modus voor bestandstoegang 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 bestandsgreep van een geopend bestand te retourneren. De bestandsgreep wordt alleen geretourneerd op 16-bits systemen; op 32-bits systemen genereert het doorgeven van 2 als tweede argument een fout.
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.