Saltar para: Post [1], Pesquisa e Arquivos [2]

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

Code Snippets Blog

Pequenas rotinas em vba, vbscript e outras linguagens. Noticias sobre informática, workshops, e outras coisas relacionadas com novas tecnologias.

15
Nov07

Listar todos os drives ligados ao sistema

Rotina em vbscript que lista todos os drives ligados ao sistema, a rotina está preparada para mostrar o resultado numa msgbox.

Option explicit
'
' Listar todos os Drives ligados ao Sistema
'
Dim ArrayTipoDrive ArrayTipoDrive=Array("Desconhecido", _ "Amovível", _ "Fixo", _ "Remoto", _ "DVD/CDROM", _ "Ramdisk") Dim objDrives Set objDrives=CreateObject("Scripting.FileSystemObject").drives Dim strDrives strDrives="Drives:" & vbCrLf Dim d, driveNome For Each d in objDrives On Error Resume Next driveNome = d.VolumeName On Error Goto 0 strDrives = strDrives & d & " " & _ ArrayTipoDrive (d.Drivetype) & " " & _ driveNome & vbCrLf Next Set objDrives=Nothing WScript.Echo strDrives