غیر فعال کردن Show Hidden

[oYaMaa]

سلام دوستان!
کدی میخوام که بتونم show hidden رو غیر فعال کنم.
ممنون!

[SlowCode]

سلام
این پست رو نگاه کن.
http://barnamenevis.org/showthread.php?104462-%D8%BA%DB%8C%D8%B1-%D9%81%D8%B9%D8%A7%D9%84-%DA%A9%D8%B1%D8%AF%D9%86-Show-Hidden&p=510213&viewfull=1#post510213

[oYaMaa]

سلام
این پست رو نگاه کن.
http://barnamenevis.org/showthread.php?104462-%D8%BA%DB%8C%D8%B1-%D9%81%D8%B9%D8%A7%D9%84-%DA%A9%D8%B1%D8%AF%D9%86-Show-Hidden&p=510213&viewfull=1#post510213
این پست رو قبل ایجاد تایپیک سر زدم!به نتیجه نرسیده که تایپیک زدم.
در ضمن سوال من کمی تفاوت داره.

[m.4.r.m]

این قطعه کد فایل های مخفی شده در یک درایو رو به شما نشون میده مثلا در درایو C:\ شما چند تا فایل رو hidden کن بعد برنامه رو اجرا کن رو باتون کلیک کنی لیست فایل های مخفی رو براتون می نویسه :

Const ATTR_NORMAL = 0
Const ATTR_READONLY = 1
Const ATTR_HIDDEN = 2
Const ATTR_SYSTEM = 4
Const ATTR_VOLUME = 8
Const ATTR_DIRECTORY = 16
Const ATTR_ARCHIVE = 32
Sub Command1_Click()
Dim filename As String
Dim attr As Integer
' retrieve hidden and normal files
filename = Dir$("c:\", ATTR_HIDDEN)
Do Until filename = ""
attr = GetAttr("c:\" & filename)
' if the file has the hidden attribute
If (attr And ATTR_HIDDEN) Then
' select it
List1.AddItem filename
End If
filename = Dir$
Loop

End Sub


برای hidden کردن یا show کردن یک فایل شما باید Attribute مربوط به فایل رو عوض کنی تا ایم اتفاق رخ بده اونم با کد زیر انجام میگیره :
http://barnamenevis.org/showthread.php?398358-%D8%AA%D8%BA%DB%8C%DB%8C%D8%B1-Attribute-%D9%87%D8%A7%DB%8C-%D9%81%D8%A7%DB%8C%D9%84-%D8%AA%D9%88%D8%B3%D8%B7-%D9%88%DB%8C%DA%98%D9%88%D8%A7%D9%84-%D8%A8%DB%8C%D8%B3%DB%8C%DA%A9&highlight=Attribute