چجور می شه لیست پوشه هایی که با دستور SetAttr "FileAdr", vbSystem + vbHidden مخفی شدن رو به دست آورد

[amintiger]

سلام
چجور می شه لیست پوشه هایی که با دستور SetAttr "FileAdr", vbSystem + vbHidden مخفی شدن رو به دست آورد ؟

[محسن واژدی]

سلام علیکم
یک لیست باکس با نام List1 و یک کامند با نام Command1 به فرم اضافه کنید سپس از دستورات زیر استفاده کنید:


Private Sub Command1_Click()

Dim cdir$

Dim mn_dir$, attach_ndir$

mn_dir$ = "d:\1\"
cdir$ = Dir(mn_dir$ & "*", vbDirectory + vbHidden + vbSystem)
List1.Clear

Do While Not cdir$ = ""

If cdir$ <> "." And cdir$ <> ".." Then
attach_ndir$ = mn_dir$ & cdir$

If GetAttr(attach_ndir$) And vbDirectory Then
If GetAttr(attach_ndir$) And vbHidden Or GetAttr(attach_ndir$) And vbSystem Then

List1.AddItem attach_ndir$

End If
End If
End If

cdir$ = Dir()

Loop

End Sub



موفق باشید

[farboodj1375]

خیلی ممنون.
یک سوال : وقتی که این فایل ها اینجوری و با این روش مخفی میشن , آیا از نظر ویندوز وجود دارن؟
فرض کنین یک فایل تکست محتوای رمز برنامه رو با این روش مخفی کردیم.
حالا آیا بدون برگردوندنش از این حالت میتونیم آدرس فایل تکست رو به برنامه بدیم تا رمز رو از اونتو بخونه؟؟؟
خیلی ممنون.

[m2011kh]

بله ميشه همچين فايلي كه با اين روش مخفي ميشه فقط از ديد انساني كه در حال كار كردن با رايانه است مخفي است و براي سيستم و برنامه اي كه شما گفتيد قابل ديد است.
از اين فايل كه مخفي است ميتوانيد در برنامه خود استفاده كنيد.

[SlowCode]

البته اگه گزینه hide protected operating system files غیرفعال باشد میتوان این فایل ها را دید.

[farboodj1375]

یک سوال:آیا اینگونه فایلها از نظر ویندوز وجود دارن؟یعنی اگه وجود اونها رو با ویبی چک کنیم نتیجه چی میشه؟
ممنون.

[SlowCode]

بله وجود دارن. فقط هنگام کار کردن با اینگونه فایل ها در قسمتی از بعضی توابع باید نوع فایلتان را مشخص کنید مثلا:
if Dir("C:\New folder" ,6) then msgbox "File exist."

[farboodj1375]

ممنون.
از این روش میشه برای فایلهایی که با روش Shell "attrib +h +s " & Text1.Text مخفی شدند هم استفاده کرد.(text1.text مسیر فایلی هست که میخوایم مخفی شه)
بازم ممنون.