No me funciona SetFileAttributes!!

Augusto
18 de Julio del 2005
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:windowsescritorioa.txt"
SetFileAttributes file, attr
End Sub

mvallejos
18 de Julio del 2005
Sin llegar a la APIs... probaste con SetAttr?