تغییر Attribute های فایل توسط ویژوال بیسیک

[m.4.r.m]

ایتدا یک مازوال بسازید اینو داخلش کپی کنین :
Declare Function SetFileAttributes Lib "kernel32" Alias "SetFileAttributesA" (ByVal lpFileName As String, ByVal dwFileAttributes As Long) As Long
Declare Function GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" (ByVal lpFileName As String) As Long

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

Public Function GetAttributes(Filename As String, _
Archive As Boolean, Hidden As Boolean, _
ReadOnly As Boolean, System As Boolean)

'Dimension and setup some variables.
Dim Data As Long
Archive = False: Hidden = False: ReadOnly = False

'Get Data and check for success.
Data = GetFileAttributes(Filename)
If Data = 0 Then GetAttributes = 0 Else GetAttributes = 1

'Work out what it is.
If Data = 128 Then Exit Function
If Data - 32 >= 0 Then Archive = True: Data = Data - 32
If Data - 4 >= 0 Then System = True: Data = Data - 4
If Data - 2 >= 0 Then Hidden = True: Data = Data - 2
If Data - 1 >= 0 Then ReadOnly = True: Data = Data - 1

End Function

Public Function SetAttributes(Filename As String, _
Archive As Boolean, Hidden As Boolean, _
ReadOnly As Boolean, System As Boolean)

'Dimension a Variable.
Dim Data As Long

'Work out what Data should be.
Data = 0
If Archive = True Then Data = Data + 32
If Hidden = True Then Data = Data + 2
If ReadOnly = True Then Data = Data + 1
If System = True Then Data = Data + 4
If Data = 0 Then Data = 128

'Set the attributes and check for success.
SetAttributes = SetFileAttributes(Filename, Data)

End Function


حالا دو تا تابع SetAttribute و GetAttribute در دست شما و هرکاری خواستین باهاش بکنین . موفق باشین

[mehran901]

تشکر ، ولی دستورات setattr و getattr نیز کنترل خوبی روی attribute فایل ها دارن