15/07/2005, 22:00
|
| | | Fecha de Ingreso: junio-2005
Mensajes: 37
Antigüedad: 19 años, 10 meses Puntos: 0 | |
| No me funciona SetFileAttributes!!
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 |