Problem using GetAttr [SOLVED]

[hothead]

This is rather confusing to me, and I would like someone to shed some light on the subject.

I am using GetAttr to get the attributes of each item in a listview. For some reason, it doesn't see the Program Files directory as a directory, but as a 0-byte file instead.

I looked at its attributes in Explorer, and I found that its read-only attribute had been set. Thinking that might be what was causing the problem, I turned it off and tried my program again. Same result. It still sees the Program Files directory as a 0-byte file. Could I have just found a known bug in the function, or is that actually the way it's supposed to work?

Is there any way I can look at the file's type rather than its attributes? Explorer sees its type fine as a file folder, so that might be the approach I will take.

[MartinLiss]

Have you searched the forums for GetAttr? I did and found this post. If that doesn't help, some of the others might.

[KayJay]

Bitwise Add the "System" constant

Private Sub Command1_Click()
Dim strDir As String
strDir = "D:\Program Files"
'If GetAttr(strDir) = vbDirectory Then
If GetAttr(strDir) = vbDirectory Or vbSystem Then
    MsgBox "Ok"
Else
    MsgBox GetAttr(strDir)
End If
End Sub

HTH

Regards

Kaushik Janardhanan

[KayJay]

For some reason the "Archive" attribute &H20 gets appended as a string "20" to the result, not "added", hence the 2097.

Ideas anyone?

[hothead]

I shall use this information to fall back on if need be. Thanks Marty.

KayJay, I found some interesting info. I got a value of 17 from the Program Files directory using GetAttr. Now I remember from using chmod in Linux (I have Mandrake 9.0) that adding the values of two attributes will give you a strange result like that. Using my VB book, I found the following information:

vbDirectory = 16 using GetAttr
vbReadOnly = 1 using GetAttr

Then I added the two values together.

16 + 1 = 17

Next, I put in the following code, which should have fixed this problem if I remember my Linux correctly:

For i = 1 To lvwDirListings.ListItems.Count
        If Not lvwDirListings.ListItems(i) = ".." And GetAttr(Dir1.Path & "\" & lvwDirListings.ListItems(i)) = vbDirectory Or GetAttr(Dir1.Path & "\" & lvwDirListings.ListItems(i)) = vbDirectory And vbReadOnly Then
            lvwDirListings.ListItems(i).SubItems(1) = "<DIR>"
            lvwDirListings.ListItems(i).SubItems(2) = FileDateTime(Dir1.Path & lvwDirListings.ListItems(i))
        End If
    Next i

However, this still doesn't fix it. (?)

I have even gone as far as removing the Read-Only attribute, however Explorer turns it back on. Then I tried this:

If Not lvwDirListings.ListItems(i) = ".." And GetAttr(Dir1.Path & "\" & lvwDirListings.ListItems(i)) = vbDirectory Or lvwDirListings.ListItems(i) = "Program Files" Then

It still will not work.

[hothead]

I fixed it. Thanks very much.