cambio de atributos en ejecutables vb2010

[BrowserLoop]

Buenas tardes a todos los foristas soy nuevo en este foro y observo que aportan grandes ayudas, bien sucede que me acerco a ustedes por que tengo un problema en vb....

el detalle se debe a que necesito realizar un cambio de atributos en todos los archivos contenidos en una carpeta, resulta que utilizo el siguiente ocdigo.

Código:

Dim archivos As String

archivos = Dir(C:\Unidad1\*.*, vbSystem or vbNormal or vbHidden)

Do While <> ""
     
   MsgBox(archivos)

  archivos = Dir()

si utilizo ese codigo me mostrara en mensaje todo el contenido de mi directorio actual, el problema sucede cuando le agrego la linea de setattrib

Código:

SetAttrib(archivos, vbSystem)

esta la agrego dentro del while y pues hasta alli llega la emocion, pues ni cambia el atributo ni muestra en mensaje el nombre de los archivos... alguna ayuda..

por cierto ya probe con mucho de lo q hablan en msdn y en absoluto no me ha funcionado gracias... espero la ayuda.....