No me funciona SetFileAttributes!!

[Augusto1987]

No consigo que la función cambie los atributos de cualquier archivo! ¿¿Cuál es el problema?? Gracias.

Código:
Private Declare Function SetFileAttributes Lib "kernel32" _
Alias "SetFileAttributesA" (ByVal lpFileSpec As String, _
ByVal dwFileAttributes As Long) As Long

Private Sub Command1_Click()
Dim attr As Long
Dim file As String
attr = FILE_ATTRIBUTE_HIDDEN
file = "C:\windows\escritorio\a.txt"
SetFileAttributes file, attr
End Sub

[Eternal Idol]

¿Donde tenes definido FILE_ATTRIBUTE_HIDDEN? Depura el programa y fijate si su valor es 2, sino nunca va a funcionar.

[Augusto1987]

Ok. Ya lo solucione. Otras dos preguntas:
¿Cuales son los valores de cada cada constante de SetFileAttributes? Me estan dando bastante dolor de cabeza... (Poniendo 0, 1, 2, etc., me funciona tambien, sin declarar las constantes, ¿¿como puede ser eso??)

¿Y como se puede hacer para que un control DirBox muestre carpetas ocultas?

Gracias

[Eternal Idol]

Funciona por logica, el nombre de la constante es solo eso, un nombre. Podrias asignarle una constante que se llamara FILE_ATTRIBUTE_SHIT el valor 2 y seguiria ocultando el archivo. Las constantes se usan para mejorar la legibilidad del codigo y si se cambia ese valor hacerlo en un solo lugar.

Todas esas declaraciones las podes encontrar en Internet y con respecto al DirBox no tengo ni idea porque no programo en VB.