IBM Lotus Symphony
|
Zwraca tryb dostępu lub numer dostępu do pliku, który został otwarty przy użyciu instrukcji Open. Numer dostępu do pliku zależy od systemu operacyjnego (jest to uchwyt systemu operacyjnego).
![]() |
W przypadku korzystania z 32-bitowego systemu operacyjnego funkcja FileAttr nie umożliwia określenia numeru dostępu do pliku. |
Patrz także: Open
FileAttr (Numer_pliku As Integer, Atrybut As Integer)
Liczba całkowita
Numer_pliku: Numer pliku otwartego przy użyciu instrukcji Open.
Atrybut: Wyrażenie całkowitoliczbowe wskazujące typ informacji o pliku, które mają zostać zwrócone. Ten parametr może przyjmować następujące wartości:
1: Funkcja FileAttr zwraca tryb dostępu do pliku.
2: Funkcja FileAttr zwraca numer dostępu do pliku w systemie operacyjnym.
W przypadku określenia parametru atrybutu o wartości 1 zastosowanie mają następujące wartości zwracane:
1 - INPUT (plik otwarty dla danych wejściowych)
2 - OUTPUT (plik otwarty dla danych wyjściowych)
4 - RANDOM (plik otwarty dla dostępu bezpośredniego)
8 - APPEND (plik otwarty dla dopisywania)
32 - BINARY (plik otwarty w trybie binarnym)
Sub Przyklad_FileAttr
Dim iNumer As Integer
Dim sWiersz As String
Dim aPlik As String
aPlik = "c:\data.txt"
iNumer = Freefile
Open aPlik For Output As #iNumer
Print #iNumer, "To jest wiersz tekstu"
MsgBox FileAttr(#iNumer, 1 ),0,"Tryb dostępu"
MsgBox FileAttr(#iNumer, 2 ),0,"Atrybut pliku"
Close #iNumer
End Sub