Subscribe:
Selamat Datang di Blog IT, Blog ini berisikan tentang Teknologi Informasi dan Komunikasi serta Gadge

Social Icons

Sample Text

Followers

Featured Posts

Senin, 10 Desember 2012

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...!!

0 komentar:

Posting Komentar