ExcelBanter - File Attributes

ExcelBanter (https://www.excelbanter.com/)

- Excel Programming (https://www.excelbanter.com/excel-programming/)

- - File Attributes (https://www.excelbanter.com/excel-programming/326302-file-attributes.html)

Hi,

I am using the FileSystemObject to get a file (objImage), and need to
determine whether is has both its Hidden and System attributes set.
Help says :

To determine which attributes are set, use the And operator to perform
a bitwise comparison (a bit-by-bit comparison between identically
positioned bits in two numeric expressions) of the value returned by
the Attributes function and the value of the individual file attribute
you want. If the result is not zero, that attribute is set for the
named file.

OK. So can someone please help me understand why the first 2 work, but
the last 2 don't?!

If objImage.Attributes And vbHidden Then MsgBox "vbHidden"

If objImage.Attributes And vbSystem Then MsgBox "vbSystem"

If objImage.Attributes And vbHidden And _
objImage.Attributes And vbSystem Then MsgBox "vbHidden &
vbSystem"

If objImage.Attributes And vbHidden = vbHidden And _
objImage.Attributes And vbSystem = vbSystem Then MsgBox
"vbHidden & vbSystem"

Any guidance is much appreciated!

Cheers,

Mark

Hi Mark,

Give this a whirl

If (objImage.Attributes And vbHidden Or _
objImage.Attributes And vbSystem) = vbHidden Or vbSystem Then

or

If (objImage.Attributes And vbHidden) + _
(objImage.Attributes And vbSystem) = vbHidden + vbSystem Then

--

HTH

RP
(remove nothere from the email address if mailing direct)

wrote in message
oups.com...
Hi,

I am using the FileSystemObject to get a file (objImage), and need to
determine whether is has both its Hidden and System attributes set.
Help says :

To determine which attributes are set, use the And operator to perform
a bitwise comparison (a bit-by-bit comparison between identically
positioned bits in two numeric expressions) of the value returned by
the Attributes function and the value of the individual file attribute
you want. If the result is not zero, that attribute is set for the
named file.

OK. So can someone please help me understand why the first 2 work, but
the last 2 don't?!

If objImage.Attributes And vbHidden Then MsgBox "vbHidden"

If objImage.Attributes And vbSystem Then MsgBox "vbSystem"

If objImage.Attributes And vbHidden And _
objImage.Attributes And vbSystem Then MsgBox "vbHidden &
vbSystem"

If objImage.Attributes And vbHidden = vbHidden And _
objImage.Attributes And vbSystem = vbSystem Then MsgBox
"vbHidden & vbSystem"

Any guidance is much appreciated!

Cheers,

Mark

Hi Bob,

There seems to be something strange with the Attribute property ...

Put this code in a new workbook:

Sub test()

x = GetAttr(Range("A1").Parent.Parent.FullName)
x = x + 34 ' Set Archive & Hidden attribute
If x = vbNormal Then MsgBox "vbNormal" ' Note, AND doesn't work!
If x And vbArchive = vbArchive Then MsgBox "vbArchive"
If x And vbHidden Then MsgBox "vbHidden"
If x And vbArchive And x And vbHidden Then MsgBox "vbArchive and
vbHidden"
If x And vbArchive = vbArchive And x And vbHidden = vbHidden Then
MsgBox "vbArchive and vbHidden"
x = 0 ' Clear Archive & Hidden attributes
If x = vbNormal Then MsgBox "vbNormal" ' Note, AND doesn't work!
If x And vbArchive Then MsgBox "vbArchive"
If x And vbHidden Then MsgBox "vbHidden"

End Sub

It seems OK, apart from the 4th If statement, which doesn't work
(whereas the 5th one does), which I don't understand.

What's more, when I apply the 4th If statement to the attribute
property of a file derived via the FileSystemObject, it actually says
that NO files meet the requirements, and the 5th one says that ALL meet
the requirements!

This has got me. It sure looks like another Excel object model oddity.

The workbook that I have the full FileSystemObject is rather large, so
I can't paste the code. I could e-mail it off-line if you're interested
......

Cheers,

Mark

Bob,

Meant to say, those 2 suggestions didn't help with my particular
attribute problem.

Cheers,

Mark

When you add 34 to set the archive and hidden attributes, you should check
first that they are not already set, otherwise you distort it.

Do

x = x Or 34

I don't think the problem is with attributes, but do you understand what AND
and OR does?

If x And (vbArchive Or vbHidden) Then _
MsgBox "vbArchive and vbHidden"

--

HTH

RP
(remove nothere from the email address if mailing direct)

wrote in message
oups.com...
Hi Bob,

There seems to be something strange with the Attribute property ...

Put this code in a new workbook:

Sub test()

x = GetAttr(Range("A1").Parent.Parent.FullName)
x = x + 34 ' Set Archive & Hidden attribute
If x = vbNormal Then MsgBox "vbNormal" ' Note, AND doesn't work!
If x And vbArchive = vbArchive Then MsgBox "vbArchive"
If x And vbHidden Then MsgBox "vbHidden"
If x And vbArchive And x And vbHidden Then MsgBox "vbArchive and
vbHidden"
If x And vbArchive = vbArchive And x And vbHidden = vbHidden Then
MsgBox "vbArchive and vbHidden"
x = 0 ' Clear Archive & Hidden attributes
If x = vbNormal Then MsgBox "vbNormal" ' Note, AND doesn't work!
If x And vbArchive Then MsgBox "vbArchive"
If x And vbHidden Then MsgBox "vbHidden"

End Sub

It seems OK, apart from the 4th If statement, which doesn't work
(whereas the 5th one does), which I don't understand.

What's more, when I apply the 4th If statement to the attribute
property of a file derived via the FileSystemObject, it actually says
that NO files meet the requirements, and the 5th one says that ALL meet
the requirements!

This has got me. It sure looks like another Excel object model oddity.

The workbook that I have the full FileSystemObject is rather large, so
I can't paste the code. I could e-mail it off-line if you're interested
.....

Cheers,

Mark