File Attributes

[vb_nima]

چطوری از Attribute یک فایل در fso استفاده کنم. من میخوام یک رشته از attribute فایل بدست آورم مثل زیر:
File xxx attribute=Read-only , hidden

[__siavash__]

یعنی منظورت اینه که میخوای نام یک فایل رو بدی بعد ببینی صفتش چیه ؟


GetAttr(pathname)

مقدار برگشتی هم مجموع مقدار های پایین هستش


vbNormal - 0 - Normal
vbReadOnly - 1 - Read-only
vbHidden - 2 - Hidden
vbSystem - 4 - System file
vbDirectory - 16 - Directory or folder
vbArchive - 32 - File has changed since last backup

[mehran8]

مرسی آقا سیاوش

[vb_nima]

گفتم یک رشته از خواص فایل .یعنی مثلا یک فایل هم read-only و هم hidden چطوری میشه فهمید.
دیگه احتیاج نیست خودم پیداش کردم. این تابعشه که نوشتم.



'This function convert Attribute from Long to String
Private Function Convert_Attribute(Attr As Long) As String
Dim strAttr As String
If Attr And vbReadOnly Then strAttr = strAttr + ",Read-only"
If Attr And vbHidden Then strAttr = strAttr + ",Hidden"
If Attr And vbSystem Then strAttr = strAttr + ",System"
If Attr And vbArchive Then strAttr = strAttr + ",Archive"

'Delete "," from first
strAttr = Mid(strAttr, 2)
Convert_Attribute = strAttr
End Function

[__siavash__]

گفتم یک رشته از خواص فایل .یعنی مثلا یک فایل هم read-only و هم hidden چطوری میشه فهمید.
دیگه احتیاج نیست خودم پیداش کردم. این تابعشه که نوشتم.


شما توجه نکردید من گفتم :
"مقدار برگشتی هم مجموع مقدار های پایین هستش"
یعنی مثلا اگه تابع مقدار 3 رو برگردونه یعنی فایل هم دارای خاصیت Read-only
و Hidden هستش که شده 3 = 2 + 1