Tips Visual Basic: Mengetahui Drive CD-ROM Pada Komputer

Tips Visual Basic kali ini berdasarkan salah satu milis Visual Basic yang penulis ikuti dimana
pada waktu itu ada yang bertanya mengenai bagaimana mengetahui suatu drive di komputer itu
adalah drive CD-ROM. Setelah cari-cari di internet maka ketemulah caranya.
OK, langsung saja, caranya mudah sekali kok. Gunakan saja FileSystemObject untuk
mengetahuinya. Untuk lebih jelas ikuti saja demo di bawah ini.
Buat project baru di Visual Basic (Standard EXE) dan kemudian tuliskan code berikut:
Option Explicit
Dim CDPath As String
Private Sub Form_Load()
Dim fso As Object
Dim drv As Object
Set fso = CreateObject("Scripting.FileSystemObject")
For Each drv In fso.Drives
If drv.DriveType = 4 Then
CDPath = drv.Path
Exit For
End If
Next drv
Set drv = Nothing
Set fso = Nothing
MsgBox "CD-ROM Path at " & CDPath
End Sub
Coba jalankan dengan menekan F5, program akan langsung menampilkan drive letter dimana
terpasang CD-ROM. Code diatas bisa Anda kembangkan menjadi suatu fungsi sendiri dan siap
digunakan.
Terimakasih dan selamat mencoba.