How to set attributes to the files

Home » File/Folder Handling » How to set attributes to the files

Posted on January 4, 2009

'File/Folder Handling - How to set attributes to the files
Sub SetAttrib()
    ' Mark a file as Archive and Read-only.
    filename = "d:\VS98\Temporary.Dat"
    SetAttr filename, vbArchive + vbReadOnly
    ' Change a file from hidden to visible, and vice versa.
    SetAttr filename, GetAttr(filename) Xor vbHidden
End Sub