[Solucionado]¿Cambiar varios atributos a un archivo?

[adan-2994]

Holas que tal,

tengo días presentando el problema que ahora expongo, espero que alguien se apiade de mi  

Estoy trabajando en Vb .Net y estoy creando una aplicación sencilla, la cual tiene la capacidad de eliminar, leer ,entre otras, un archivo que previamente yo le he indicado (es algo para practicar)

Mi problema comienza cuando quiero cambiar sus atributos,
primero comenze con :

Código (vbnet) [Seleccionar] Expandir

FileSystem.SetAttr("Archivo",ATRIBUTO)
Lo cual funciono como esperaba, pero cuando quise cambiar mas de un atributo, el archivo solo "aceptaba" el ultimo de ellos, por ejemplo este código use para varios:

Código (vbnet) [Seleccionar] Expandir

FileSystem.SetAttr("Archivo",ATRIBUTO)
FileSystem.SetAttr("Archivo",OTRO_ATRIBUTO)
FileSystem.SetAttr("Archivo",OTRO_ATRIBUTO_MAS)

en este caso el archivo al final de revisarlo solo presentaba el atributo OTRO_ATRIBUTO_MAS

También intente este código:

Código (vbnet) [Seleccionar] Expandir

Shell("cmd /c attrib +r +s +h ARCHIVO", AppWinStyle.Hide)

Y ... lo mismo ocurre, no toma todos en cuenta

Alguien sabe en que estoy fallando  
¿De que manera podría entonces cambiar varios atributos, o acaso no se puede?

[Eleкtro]

Código (vbnet) [Seleccionar] Expandir

FileSystem.SetAttr("Archivo", IO.FileAttributes.System + IO.FileAttributes.Hidden)

Saludos

EDITO:

Código (vbnet) [Seleccionar] Expandir

    ' Usage:
    ' Attrib("File.txt", IO.FileAttributes.ReadOnly + IO.FileAttributes.System)

    Private Function Attrib(ByVal File As String, ByVal Attributes As System.IO.FileAttributes)
        Try
            FileSystem.SetAttr(File, Attributes)
            Return True
        Catch
            Return Nothing
        End Try
    End Function

[adan-2994]

 
si pudiera te besaba jajaa
Gracias es lo que esperaba ! 

[DragonsWP]

me parece bien pero cuando quiero quitar en ves de dar atributos
como por ejemplo en "Shell("attrib /d /s -r -h -s " & "E:\temp" & "\*.*")", a mi no me toma.