نمایش فایل های مخفی در کنترل dirlist

[one hacker alone]

با یاد خدا
با سلام
دوستان برای نمایش پوشه های مخفی در کنترل dirlist چه راهی پیشنهاد میکنید?

قبلا دوستان برای کنترل filelist کد زیر رو دادن اما برای پوشه ها جواب نمیده


Private Sub Command1_Click()
With File1
.ReadOnly = True
.Hidden = True
.System = True
.Archive = True
.Pattern = "*.*"
.Refresh
End With
End Sub






درضمن آیا راهی هست که ما در کنار اینکه بتونیم فایل ها و پوشه ها رو لیست کنیم حجم اونها هم کنارشون بیاد؟

[محسن واژدی]

سلام علیکم
در شرایط عادی dir-list امکان نمایش فایل های مخفی را ندارد

موفق باشید

[one hacker alone]

خوب این وسط چکار کنیم پس راه حل چیه؟

[محسن واژدی]

سلام علیکم
اگه میخواین نام فولدر ها را لیست کنین میتوانید از تابع Dir استفاده کنید، کد زیر بررسی کنید:

Private Sub Command1_Click()
Dim sDir$, sParentDir$
AutoRedraw = True
Cls
sParentDir$ = "C:\"
sDir$ = Dir(sParentDir$, vbDirectory Or vbHidden Or vbSystem)
Do Until sDir$ = ""
Print sParentDir$ & sDir$
sDir$ = Dir
Loop
End Sub


موفق باشید