En el foro me encontrado este codigo
Código:
set objfso = createobject("scripting.filesystemobject")
set discos = objfso.drives
nu=0
for each d in discos
if d.driveletter <> "A" and d.drivetype = 1 then
u = u & d.driveletter & ":" & chr(13)
nu = nu+1
end if
next
if nu = 0 then
msgbox "No se han deteactado unidades removibles"
else
msgbox "Las unidades removibles son: " & chr(13) & u
end if
Me gustaria que ademas de detectar las unidades extraibles detectara todas las particiones en cualquier maquina que sea utilizado el script
(C:\ y D:\ en mi caso)
Me pueden ayudar a modificarlo por fa
Apenas estoy empezando en esto y no entiendo mucho !
Gracias !