تشخیص صفت فایل

[good_boy]

چطور می شه تشخیص داد که یه فایل چه صفتی داره مثلا آیا سیستمی یا نرمال یا مخفی؟؟
یا همه با هم

[r0ot$harp]

دوست عزیز برای این کار شما باید از GetAttr استفاده کنید .


Dim Result As String

Result = GetAttr("C:\IO.SYS")

If Result = vbNormal Then MsgBox "File Attributes is a Normal": Exit Sub
If Result = vbReadOnly Then MsgBox "File Attributes is a ReadOnly": Exit Sub
If Result = vbSystem Then MsgBox "File Attributes is a Hidden": Exit Sub
If Result = vbArchive Then MsgBox "File Attributes is a Archive": Exit Sub


باتشکر احسان