مطلوب:كود لتغيير خواص المجلدات(ليس الملفات)

الا يوجد من يعرف الكود على الأطلاق ؟؟؟

الا يوجد هذا الكود اصلا ؟؟؟؟؟؟؟؟؟؟؟؟!!

أخي العزيز الكود ها هو أرجو أن يفيدك

'أدرج أولا الكلاس أو المكتبة التي تسمي 
'Microsoft Scripting Runtime
'Scrrun.dll
Private Sub Form_Load()
 Dim Fsys As New FileSystemObject
 Dim Folder As Folder
 Set Folder = Fsys.GetFolder(Folder_Path)
 Folder.Attributes = Hidden + ReadOnly
End Sub

أرجو أن يكون هذا مطلبك

و لكن المشكلة فى انه عندما اطلب منه اضافة الملف يصدر الرسالة :

"C:\Windows\Sysem32\SCRRUN.dll cannot be loaded"

من أين تطلب أضافتها

أشكرك جدا على تعاونك

اطلب منه أضافة Components ثم Browse و أقوم بإختيار الملف scrrun.dll الموجود فى ال Ssytem32

لا يا أخي أضف المكتبة من Reference الموجود في القائمة Project

عفوا يا أخي ما دمنا نستطيع تقديم الساعدة فهذا واجبنا

بالفعل الكود نجح (h)

أشكرك جدا جدا :rolleyes:

عفوا يا أخي ومدام الحوار عن الملفات فسل كما تشاء من أول أسم الملف وإلي نقله ونسخه بالبايت كما في ويندوز