طریقه ی تشخیص فایل های مخفی

[lesolai]

با فرض اینکه ما دو تا آدرس به صورت زیر داشته باشیم :


D:\VB\Test3\picture.jpg
D:\VB\Test3\song.mp3
چطور از طریق ادرس ها می شه فهمید که کدوم فایل مخفیه ؟

[محسن شامحمدی]

از تابع GetAttr استفاده کن:
Dim a As String
a = "D:\VB\Test3\picture.jpg"
If GetAttr(a) = vbHidden + vbArchive Then
MsgBox "hidden"
Else
MsgBox "normal"
End If