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

[one hacker alone]

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

سوال دیگر اینکه اگه من بخوام محتویات یک درایو با تمام پوشه و زیر پوشه و فایل های اون ها رو در یک فایل یا textbox ذخیره کنم البته فقط اسمشو رو میخوام

[محسن واژدی]

سلام علیکم
کد زیر همه انواع فایل ها را نمایش میدهد: Private Sub Command1_Click()
With File1
.ReadOnly = True
.Hidden = True
.System = True
.Archive = True
.Pattern = "*.*"
.Refresh
End With
End Sub


موفق باشید

[one hacker alone]

ممنون از پاسختون
یه سوال دیگه
چجوری در پوشه هایی که در کنترل dirlist نمایش داده میشن ما بدونیم که پوشه x زیر پوشه داره یا نه
البته به ظاهر با دندانه دار شدن مشخص هست اما چجوری میتونم زیر شاخه ها رو تو کد نویسی بررسی کنم؟

[mohammadriano]

سلام
با کسب اجازه از استاد واژدی
کد زیر تعداد دایرکتوری های در دایرکتوری مد نظر شما را محاسبه می کند

Private Sub Form_Load()
Dir.Path = "e:\xampp"
Text1.Text = Dir.ListCount
End Sub

موفق باشی

[محسن واژدی]

با APIی PathIsDirectoryEmpty هم میتوانیم خالی بودن فولدر را بررسی کنیم:

به عنوا مثال:
Private Declare Function PathIsDirectoryEmpty Lib "shlwapi.dll" Alias "PathIsDirectoryEmptyA" (ByVal pszPath As String) As Long

Private Sub Command1_Click()
MsgBox "Is the C:\ folder empty? " & IIf(PathIsDirectoryEmpty("c:\") = 1, "Yes", "No")
End Sub


موفق باشید