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.....