Source Code untuk mengetahui Drive yang sedang terpasang di PC

Berikut ini adalah source code yang dapat digunakan untuk mengetahui drive apa saja yang sedang terpasang di PC atau laptop kita. Disini Drive dibedakan menjadi 3 jenis yaitu (1) HardDrive, (2) CDDrive, (3) RemovableDrive. Source Code di bawah ini akan menampilkan Drive Letter dari masing - masing  drive yang sedang terpasang berdasarkan jenis Drivenya.

cRemovableDrive="" 
cCDDrive="" 
cHardDrive="" 
fso = CreateObject("Scripting.FileSystemObject")
For Each drv In fso.Drives
 DO CASE 
  CASE drv.DriveType = 2
   cRemovableDrive=cRemovableDrive+drv.Path
  CASE drv.DriveType = 4
   cCDDrive=cCDDrive+drv.Path
  CASE drv.DriveType = 1
  cRemovableDrive=cRemovableDrive+drv.Path
 ENDCASE
ENDFOR 
?cRemovableDrive
?cCDDrive
?cHardDrive 

Variable cRemovableDrive akan menampilkan semua Drive Letter yang berjenis RemovableDrive, sedangkan variable cCDDrive akan menampilkan semua Drive Letter yang berjenis CDDrive dan variable cHardDrive akan menampilkan semua Drive Letter yang berjenis HardDrive.


SELAMAT MENCOBA...!!

No Response to "Source Code untuk mengetahui Drive yang sedang terpasang di PC"

Poskan Komentar

Bila komentar tidak tampil, silahkan ke page Welcome dan beritahukan melalui email yang tertera disana, kemungkinan komentar anda dianggap sebagai spam, biar nanti admin yang akan merubahnya, Terima kasih.

Related Posts Plugin for WordPress, Blogger...