Visual Basic - Atributos de archivos vb 2010 ayuda

Buenas tardes compañeros, asisto a ustedes por que tengo un pequeño error... bien sucede que tengo el siguiente codigo:

Dim archivo, ruta As String
Dim Attr As Integer
archivo = Dir( "C:\H\*.*", vbNormal)

Do While archivo <> ""

SetAttrib(archivo, vbSystem)
MsgBox(archivo)
archivo = Dir()

Loop

Ok se supone que con ese codigo deberia identificarme los archivos que estan dentro de la carpeta h de c con el parametro de atributo normal y convertirmelos a archivos del sistema...

sucede que si escribo este codigo asi como lo estoy colocando alli arriba no funciona... de lo contrario si lo coloco asi:

Dim archivo, ruta As String
Dim Attr As Integer
archivo = Dir( "C:\H\*.*", vbNormal)

Do While archivo <> ""

SetAttrib("C:\H\app.exe), vbSystem)
MsgBox(archivo)
archivo = Dir()

Loop

si funciona... peero si lo hago con un directorio en vez de un ejecutable funciona a la perfeccion sin ningun inconveniente como lo coloque en la primera ocacion... bien el detalle es que necesito que el programa cambie los atributos de todo el contenido de esa carpeta por eso hago el while, pq no se en si que archivos hay alli dentro y no me funcionaria el segundo modo... entonces quisiera obtener alguna solucion para hacer el cambio a todos los atributos de los archivos existentes en esa carpeta alguna ayuda por favor.. muchas gracias...