VB & VBA in a Nutshell: The Language

SetAttr Statement

Named Arguments

Yes

Syntax

SetAttr pathname, attributes

pathname

Use: Required

Data Type: String

The name of the file whose attributes are to be set.

attributes

Use: Required

Data Type: Integer

Numeric expression or constant specifying the attributes.

Description

Changes the attribute properties of a file.

Rules at a Glance

• Visual Basic now includes the following intrinsic constants for setting file attributes:

  Constant	Value	Description
  vbNormal	0	Normal (default)
  vbReadOnly	1	Read-only
  vbHidden	2	Hidden
  vbSystem	4	System file
  vbArchive	32	File has changed since last backup

• File attributes' constants can be added together or logically ORed to set more than one attribute at the same time. For example:

  SetAttr "SysFile.Dat", vbSystem Or vbHidden
  SetAttr "MyFile.Txt", vbArchive + vbReadOnly

• pathname can include a drive letter. If a drive letter isn't included in pathname, the current drive is assumed. If a drive letter is used, the fully qualified path is required unless the file is located in the current directory.

• pathname can include a folder name. If the folder name isn't included in pathname, the current folder is assumed.

• Attempting to set the attributes of an open file will generate a runtime error.

Example

Private Sub AddAttributes(strFN As String, _
                          intNewAttrib As Integer)

Dim intAttrib As Integer

intAttrib = GetAttr(strFN)
SetAttr strFN, intAttrib Or intNewAttrib

End Sub

Programming Tips and Gotchas

• Setting file attributes simultaneously clears any ...