Pernyataan SetAttr
Mengeset informasi atribut untuk berkas yang ditentukan.
Sintaksis:
SetAttr NamaBerkas As String, Atribut As Integer
Parameter:
NamaBerkas: Nama berkas, termasuk jalur, yang ingin Anda uji atributnya. Jika Anda tidak memasukkan jalur, SetAttr pencarian berkas di direktori saat ini. Anda juga bisa menggunakan notasi URL.
Atribut: Pola bit mendefinisikan atribut yang ingin Anda atur atau hapus:
Nilai
Menampilkan tombol Gagalkan, Ulangi, dan Abaikan. |
nilai |
Definisi |
ATTR_NORMAL |
0 |
Berkas normal. |
ATTR_READONLY |
1 |
Berkas hanya-baca. |
ATTR_HIDDEN |
2 |
File tersembunyi |
Anda dapat mengatur beberapa atribut dengan menggabungkan nilai masing-masing dengan logika ATAU pernyataan.
Contoh:
Sub ExampleSetGetAttr
Pada Error GoTo ErrorHandler ' Difinisikan target untuk menangani kesalahan
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" , ATTR_READONLY
Print GetAttr( "c:\test\autoexec.sav" )
End
ErrorHandler:
Print Error
End
End Sub