[RESOLVED] GetAttr and Vista

[lintz]

One of my routines checks for all sub-folders within a main folder which works fine on XP but not Vista.

With XP GetAttr returns 16 (a folder) but with Vista it returns 8208 (?) and as a result the msgbox isn't displayed.

Is there a trick with Vista and GetAttr to return a folder?

If GetAttr(tPortSettings.sDBLocation & "Themes\" & sFileName) = vbDirectory Then
            
            MsgBox "Is Folder!
            
            End If

[lintz]

If I use the below the msgbox is now displayed on Vista (and XP)

If ((GetAttr(tPortSettings.sDBLocation & "Themes\" & sFileName) And vbDirectory) = vbDirectory) Then

MsgBox "Is Folder!
            
End If