IBM Lotus Symphony


SetAttr Statement [Runtime]

يتم تحديد معلومات الخاصية المميزة لملف محدد.

الصيغة:

SetAttr FileName As String, Attribute As Integer

المعاملات:

FileName: الاسم الخاص بالملف، متضمنا المسار الذي تريد اختبار الخصائص المميزة له. اذا لم تقم بادخال مسار، سيقوم SetAttr بالبحث عن الملف في الدليل الحالي. يمكنك أيضا استخدام ترميز URL.

Attribute: نموذج Bit pattern يعرف الخصائص المميزة التي تريد تحديدها أو اخلائها:

القيمة

0 : ملفات عادية.

1 : ملفات للقراءة فقط.

32 : تم تغيير الملف منذ آخر عملية نسخة احتياطية (Archive bit).

يمكنك تحديد خصائص مميزة متعددة من خلال دمج القيم الخاصة بهم باستخدام عبارة logic OR statement.

أكواد الخطأ

5 استدعاء غير صحيح للاجراء

53 لم يتم ايجاد الملف

70 رفض الترخيص

مثال:

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:‎‏

خطأ الطباعة

نهاية

نهاية البرنامج


التعليق التقييمي عن البرنامج | المزيد من المطبوعات الفنية | العلامات التجارية