[VBS] Daftar Semua Drive Beserta Type nya

Dim FSO, objDrive, strDrives
Set FSO = CreateObject("Scripting.Filesystemobject")
For Each objDrive In FSO.Drives
 strDrives=strDrives & objDrive.DriveLetter & ":  " & _
  GetDriveType( objDrive.DriveType) & vbCrLf 
Next
MsgBox strDrives,vbInformation,"Drives"
 
Function GetDriveType(ByVal intDriveType)
 Select Case intDriveType
  Case 1: GetDriveType="Removable"
  Case 2:GetDriveType="Fixed Drive"
  Case 3:GetDriveType="Remote Drive"
  Case 4:GetDriveType="CD Rom"
  Case 5:GetDriveType="Ram Disk"
  Case Else:GetDriveType="Unknown"
 End select
End Function

'(c) 2010 Crowja

> Jangan Lupa Komentar Yaa..