View Full Version : File Attributes
vb_nima
جمعه 14 اردیبهشت 1386, 02:40 صبح
چطوری از Attribute یک فایل در fso استفاده کنم. من میخوام یک رشته از attribute فایل بدست آورم مثل زیر:
File xxx attribute=Read-only , hidden
__siavash__
جمعه 14 اردیبهشت 1386, 10:44 صبح
یعنی منظورت اینه که میخوای نام یک فایل رو بدی بعد ببینی صفتش چیه ؟
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
جمعه 14 اردیبهشت 1386, 11:54 صبح
مرسی آقا سیاوش
vb_nima
جمعه 14 اردیبهشت 1386, 18:12 عصر
گفتم یک رشته از خواص فایل .یعنی مثلا یک فایل هم 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__
جمعه 14 اردیبهشت 1386, 19:46 عصر
گفتم یک رشته از خواص فایل .یعنی مثلا یک فایل هم read-only و هم hidden چطوری میشه فهمید.
دیگه احتیاج نیست خودم پیداش کردم. این تابعشه که نوشتم.
شما توجه نکردید من گفتم :
"مقدار برگشتی هم مجموع مقدار های پایین هستش"
یعنی مثلا اگه تابع مقدار 3 رو برگردونه یعنی فایل هم دارای خاصیت Read-only
و Hidden هستش که شده 3 = 2 + 1
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.