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 ( bestandsnummer ; retourtype )
De syntaxis van de functie FileAttr heeft deze argumenten:
|
Argument |
Beschrijving |
|
bestandsnummer |
Vereist. Geheel getal. Ieder 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. Het retourtype 2 wordt niet ondersteund op 32-bits systemen en veroorzaakt daar een fout. |
Retourwaarden
Als returntypeargument is ingesteld op 1, 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 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, HandleFileNum = 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.
