Ayuda cabio de atributos vb2010
Publicado por Gabotamn (1 intervención) el 23/01/2012 17:07:20
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..
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..
Valora esta pregunta
0
