IBM Lotus Symphony
|
يتم تحديد معلومات الخاصية المميزة لملف محدد.
SetAttr FileName As String, Attribute As Integer
FileName: الاسم الخاص بالملف، متضمنا المسار الذي تريد اختبار الخصائص المميزة له. اذا لم تقم بادخال مسار، سيقوم SetAttr بالبحث عن الملف في الدليل الحالي. يمكنك أيضا استخدام ترميز URL.
Attribute: نموذج Bit pattern يعرف الخصائص المميزة التي تريد تحديدها أو اخلائها:
القيمة
0 : ملفات عادية.
1 : ملفات للقراءة فقط.
32 : تم تغيير الملف منذ آخر عملية نسخة احتياطية (Archive bit).
يمكنك تحديد خصائص مميزة متعددة من خلال دمج القيم الخاصة بهم باستخدام عبارة logic OR statement.
Sub ExampleSetGetAttr
On Error Goto ErrorHandler REM Define target for error-handler
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" )
نهاية
ErrorHandler:
خطأ الطباعة
نهاية
نهاية البرنامج