[codepoet]

originally posted on dotnet-snippets.com

Description:

With this function you can give a file an attribute like ready-only.

Code

Public Sub SetAttribute(ByVal FileName As String, ByVal NewAttribute As FileAttribute)
    Dim Attr As FileAttributes
    Attr = File.GetAttributes(FileName)
    File.SetAttributes(FileName, Attr Or NewAttribute)
End Sub

If You Like this tutorial, please check out my other tutorials by clicking ==> H3R3

[Sikandar]

you can always just use 1 line of code
File.SetAttributes(FileName, Attribute)

---

thankz for sharing!
:)

[codepoet]

true but this is the proper way of doing it.