Autor
como te dije anteriormente no se mucho de esto
Me podrias explicar si el codigo esta completo o hay que agregarle algo segun lo que quiero hacer ?
Citar
Quiero borrar el archivo autorun.inf de todas las unidades / particiones , que me diga si los elimino y en donde y crear una carpeta con el nombre autorun.inf la cual quede oculta !
Código:
Set objfso = createobject("scripting.filesystemobject")
set dc = objfso.drives
for each d in dc
if d.drivetype=1 or d.drivetype=2 then
if objfso.fileexists(d.driveletter & ":\autorun.inf") then
objfso.deletefile d.driveletter & ":\autorun.inf", true
end if
end if
nextGracias !
En línea
