IBM Lotus Symphony
|
Służy do ustawiania atrybutów określonego pliku.
SetAttr Nazwa_pliku As String, Atrybut As Integer
Nazwa_pliku: Nazwa oraz ścieżka do pliku, którego atrybuty mają zostać ustawione. Jeśli ścieżka nie zostanie podana, instrukcja SetAttr wyszuka plik w bieżącym katalogu. Można również użyć notacji URL.
Atrybut: Wzorzec bitowy definiujący atrybuty, które mają zostać ustawione lub wyczyszczone:
Wartość
0: Zwykłe pliki.
1: Pliki tylko do odczytu.
32: Plik został zmieniony od czasu wykonania ostatniej kopii zapasowej (bit archiwizacji).
Aby ustawić wiele atrybutów jednocześnie, można połączyć odpowiadające im wartości operatorem logicznym OR.
Sub Przyklad_SetAttr_GetAttr
On Error Goto Obsluga_bledu REM Definicja elementu docelowego dla procedury obsługi błędów
If Dir("C:\test",16)="" Then MkDir "C:\test"
If Dir("C:\test\autoexec.sav")="" THEN Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"
SetAttr "c:\test\autoexec.sav" ,0
Filecopy "c:\autoexec.bat", "c:\test\autoexec.sav"
SetAttr "c:\test\autoexec.sav" ,1
print GetAttr( "c:\test\autoexec.sav" )
end
Obsluga_bledu:
Print Error
end
end sub