سلام این کد Attribute فایل مشخص شده رو تغییر میده
چهار تا Check box بذارید نا نام های خواسته شده و یه Button
سورس:
Dim ListOfAttributes As Integer
Dim filep As New OpenFileDialog
If chkArchive.Checked = True Then
ListOfAttributes += FileAttributes.Archive
End If
If chkHidden.Checked = True Then
ListOfAttributes += FileAttributes.Hidden
End If
If chkReadOnly.Checked = True Then
ListOfAttributes += FileAttributes.ReadOnly
End If
If chkSystem.Checked = True Then
ListOfAttributes += FileAttributes.System
End If
filep.ShowDialog()
File.SetAttributes(filep.FileName, ListOfAttributes)