Atributos de un archivo - CPH hacking and security

Eso es todo!
Para aplicar atributos:

Código:

SetAttr(Ruta_Del_Archivo),Atributo

Para ver los atributos:

Código:

GetAttr(Ruta_del_Archivo)

Aclaro que esta sentencia es un procedimiento implicito, osea devuelve un valor que en este caso seria el atributo del archivo

Pongo un ejemplo al que deben agregar los siguientes controles: 6 command button, 1 textbox y 1 commondialog

Código:

Private Sub Command1_Click()
Dim ret As Long
Dim Atributos As String
ret = GetAttr(Text1.Text)

If ret And vbNormal Then
Atributos = " Normal = Si" & vbNewLine
Else
Atributos = " Normal = No" & vbNewLine
End If
If ret And vbReadOnly Then
Atributos = Atributos & " Solo Lectura = Si" & vbNewLine
Else
Atributos = Atributos & " Solo Lectura = No" & vbNewLine
End If
If ret And vbHidden Then
Atributos = Atributos & " Oculto = Si" & vbNewLine
Else
Atributos = Atributos & " Oculto = No" & vbNewLine
End If
If ret And vbSystem Then
Atributos = Atributos & " Sitema = Si" & vbNewLine
Else
Atributos = Atributos & " Sitema = No" & vbNewLine
End If
If ret And vbDirectory Then
Atributos = Atributos & " Directorio = Si" & vbNewLine
Else
Atributos = Atributos & " Directorio = No" & vbNewLine
End If

'Muestra los atributos del archivo elegido
MsgBox Atributos, vbInformation, " Atributos "

End Sub

Private Sub Command2_Click()
SetAttr (Text1.Text), vbHidden
End Sub

Private Sub Command3_Click()
SetAttr (Text1.Text), vbReadOnly
End Sub

Private Sub Command4_Click()
SetAttr (Text1.Text), vbSystem
End Sub

Private Sub Command5_Click()
SetAttr (Text1.Text), vbNormal
End Sub

Private Sub Command6_Click()
commondialog1.ShowOpen
Text1.Text = commondialog1.FileName
End Sub

Private Sub Form_Load()
Command1.Caption = "Ver Atributos"
Command2.Caption = "Oculto"
Command3.Caption = "Lectura"
Command4.Caption = "Sistema"
Command5.Caption = "Normal"
Command6.Caption = "Buscar Archivo"
Text1.Text = " [ Ruta del Archivo ] "
Text1.Locked = True
End Sub

Podria quedar algo asi:

Code de
Para ver este enlace Registrate o Inicia Sesion