كيف أتعامل مع ال attributes الخاصة بالملفات ؟

أخي الحبيب:

هذا شرح مفصل و واضح لما تريد مقتبس من كتاب الأستاذ الكريم تركي العسيري :

تمكنك الدالة GetAttr من معرفة خصائص الملف File Attributes والدالة SetAttr

لتغيير خصائص الملف –شريطة ان لا يكون مفتوحا:

Dim sFile As String
sFile = “C:\File.EXT”
مخفي ‘ … If GetAttr(sFile) And vbHidden Then
للقراءة فقط ‘ … If GetAttr(sFile) And vbReadOnly Then
ارشيف ‘ … If GetAttr(sFile) And vbArchive Then
…
مخفي ‘ SetAttr sFile, vbHidden
ارشيف وللقراءة فقط ‘ SetAttr sFile, vbArchive + vbReadOnly
عكس خاصية للقراءة فقط ‘ SetAttr sFile, GetAttr(sFile) Xor vbReadOnly

و لك مني جزيل الشكر,,, (h)

شكرا جزيلا على المساعدة وربنا يوفقك

تقبل تحياتي

اخي هذا مثال بسيط

 
Dim mFileSystemObject As Scripting.FileSystemObject
Dim mFolder As Folder
Set mFolder = mFileSystemObject.CreateFolder("c:\foldername")
mFolder.Attributes = 2
Set mFileSystemObject = Nothing