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.