اخواني الكرام
جربت الملف اللي بيخفي المجلد وتم اخفاءه فعلا وذهبت الي خصائص العرض لاظهار الملفات والمجلدات المخفية ولكنه لم يظهر
والحدث الموجود بالملف اللي شغلته هو :
Dim fso As Object
Dim fldr As Object
Dim folderPath As String
Set fso = CreateObject("Scripting.FileSystemObject")
Set fldr = Application.FileDialog(4)
If fldr.Show = -1 Then
folderPath = fldr.SelectedItems(1)
End If
If folderPath <> "" Then
fso.GetFolder(folderPath).Attributes = fso.GetFolder(folderPath).Attributes + 2
MsgBox "Folder attributes set to hidden."
Else
MsgBox "No folder was selected."
End If
Set fldr = Nothing
Set fso = Nothing
فارجو عمل كود للاخفاء والاظهار وليس الاخفاء فقط وشكرا