IBM Lotus Symphony
|
Returnerer adgangstilstanden eller filadgangsnummeret på en fil, som blev åbnet med Open-sætningen. Filadgangsnummeret (OSH = Operating System Handle) afhænger af operativsystemet.
![]() |
Du kan ikke bruge funktionen FileAttr til at finde frem til filadgangsnummeret, hvis du bruger et 32 bit-operativsystem. |
Se også: Open
FileAttr (Filnummer As Integer, Attribut As Integer)
Heltal
Filnummer: Nummeret på den fil, som blev åbnet med Open-sætningen.
Attribut: Heltalsudtryk, som angiver den type filoplysninger, du vil have returneret. Følgende værdier kan bruges:
1: Funktionen FileAttr angiver filens adgangstilstand.
2: Funktionen FileAttr returnerer operativsystemets filadgangsnummer.
Der gælder følgende returværdier, hvis du angiver parameterattributten med værdien 1:
1 - INPUT (fil åben i inputtilstand)
2 - OUTPUT (fil åben i outputtilstand)
4 - RANDOM (fil åben i direkte adgangstilstand)
8 - APPEND (fil åben i tilføjetilstand)
32 - BINARY (fil åben i binær tilstand).
Sub FileAttrEksempel
Dim iNummer As Integer
Dim sLinje As String
Dim aFil As String
aFil = "c:\data.txt"
iNummer = Freefile
Open aFil For Output As #iNummer
Print #iNummer, "Dette er en tekstlinje"
MsgBox FileAttr(#iNummer, 1 ),0,"Adgangstilstand"
MsgBox FileAttr(#iNummer, 2 ),0,"Filattribut"
Close #iNummer
End Sub