كود لتغيير الاعدادات لاخفاء المجلدات في خيارات مستكشف الملفات ويندوز10

[محمد القدسي]

السلام عليكم ورحمة الله بركاته

وشهر مبارك على الجميع وتقبل الله من ومنكم صالح الاعمال

اساتذتي الافاضل هل بالامكان التحكم في لوحة التحكم في ويندوز10 في مستكشف الملفات بحيث استطيع اخفي المجلدات والملفات عن طريق الكود

ومرفق صورة لشاشة مستكشف الملفات ويندوز10 

[محمد القدسي]

up

[محمد القدسي]

up

[ابوخليل]

تفضل

من مكتبتي مثال لأحد اساتذتنا الفضلاء

اخفاء المجلد عن طريق الكود.rar

[محمد القدسي]

اشكرك استاذي القدير @ابو خليل على تعاونك 

الكود ممتاز ولاكن ربط جداول قاعدة البيانات والموجودة في المجلد الذي تم اخفائه بواسطة الكود فانه لا يكتشف قاعدة البيانات

[ابوخليل]

الإخفاء يكون بعد الربط

[محمد القدسي]

احسنت استاذي وبارك الله فيك وفي علمك ونفع الله بك 

انت وجميع القائمين والمتعاونين معنا في هذا الصرح العلمي المبارك

وتقبل الله منا ومنكم الصيام القيام وبلغنا واياكم في هذا الشهر ليلة القدر

 

[محمد القدسي]

استاذي العزيز طبقت الكود في قاعدة بياناتي accdb فلم يعمل وتظهر لي رسالة خطأ كما في المرفق

بينما في المرفق الذي تفضلتم به الكود بعمل بشكل طبيعي

فاين المشكلة استاذي هل يمكن ان تكون في المكتبات

[ابوخليل]

9 ساعات مضت, محمد القدسي said:

استاذي العزيز طبقت الكود في قاعدة بياناتي accdb فلم يعمل وتظهر لي رسالة خطأ كما في المرفق

 

اين المرفق؟

[محمد القدسي]

عفوا استاذي نسيت المرفق

[ابوخليل]

في ١٨‏/٤‏/٢٠٢١ at 00:17, محمد القدسي said:

فاين المشكلة استاذي هل يمكن ان تكون في المكتبات

هل جربت وفحصت المكتبات؟ اقصد هل اطلعت على مكتبات موجودة في المثال  ولا توجد في برنامجك ؟

[ابوخليل]

واذا نظام الوندز عندك 64 بت

جرب استبدال الجملة في اعلى المحرر

Private Declare Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _
ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long

بهذه

Private Declare PtrSafe Function SHChangeNotify Lib "Shell32.dll" (ByVal wEventID As Long, _
ByVal uFlags As Long, ByVal dwItem1 As Long, ByVal dwItem2 As Long) As Long

التغير هو فقط باضافة  PtrSafe

[محمد القدسي]

تسلم استاذي الان الامور 100%

بارك الله فيك ونفع الله بك

[Mohameddd200300]

استاذي الكريم ابو خليل  شكرا لي مثل هذا المرفق المهم كا جز من حماية البرنامج .

ولاكن عندي استفسار وطلب هل يمكن تعديل الكود لي اخفا  انوع مختلف من المرفقات اقصد ملفات او قاعدة بينات او اي شي بختصار احط مسار  الشي الي بغا اسويله اخفاء  اكثر من شي في كود واحد فكيف الطريقة جزاك الله عنا خيرا 

 

في ١٧‏/٤‏/٢٠٢١ at 03:52, ابوخليل said:

تفضل

من مكتبتي مثال لأحد اساتذتنا الفضلاء

اخفاء المجلد عن طريق الكود.rar 14.18 kB · 17 downloads

 

[ابوخليل]

هذه وحدة نمطية لإخفاء وإظهار ملف معين مهما كان نوعه وايضا ضمن موقع قاعدة البيانات الافتراضي

Sub HideUnhideFile(pstrFilespec As String, pblnShowFile As Boolean)
Dim FS As Object
Dim F As Object
Set FS = CreateObject("Scripting.FileSystemObject")
Set F = FS.GetFile(pstrFilespec)
If pblnShowFile Then
F.Attributes = F.Attributes And (Not vbHidden)
Else
F.Attributes = F.Attributes Or vbHidden
End If
End Sub
Private Sub CommandHide_Click()
HideUnhideFile (CurrentProject.Path & "\kk.jpg"), False
End Sub
Private Sub CommandShow_Click()
HideUnhideFile (CurrentProject.Path & "\kk.jpg"), True
End Sub

 

وهذا اقصر كود يمكنه القيام  بالعملية 

هذا للإخفاء :

Shell "attrib +h D:\xx.jpg"

وهذا للإظهار :

Shell "attrib -h D:\xx.jpg"

 

علما ان الأفضل هو جعل الملفات المهمة ضمن مجلد واحد  وتطبيق الفكرة على المجلد