ممكن طريقه لأخفاء المجلدات و الملفات عن طريق فجوال بيسك

السلام عليكم

اخي العزيز

ان كنت تقصد جعل صفة الملفات Hidden فعليك باستخدام الدالة setattr

'SetAttr pathname, attributes
'folder
SetAttr "c:x", vbHidden
'file
SetAttr "c:file.txt", vbHidden

يمكن استخدام الدالة SetFileAttributes (دالة api )

Const FILE_ATTRIBUTE_READONLY = &H1
Const FILE_ATTRIBUTE_HIDDEN = &H2
Const FILE_ATTRIBUTE_SYSTEM = &H4
Const FILE_ATTRIBUTE_ARCHIVE = &H20
Const FILE_ATTRIBUTE_NORMAL = &H80
Private Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" _
(ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long


Private Sub Command1_Click()
SetFileAttributes "c:a.txt", FILE_ATTRIBUTE_HIDDEN
End Sub

شكرأ على هذا الكود بس بس بدي كمان كود لأخفاء المجلدات

وشكرأ:cool:

السلام عليكم

ما المقصود بالمجلدات ؟

(عذرا فمصطلحات الكمبيوتر - باللغة العربية - عندي غير جيدة )

ان كان المقصود folders فراجع الاجابة السابقة.