Minggu, 14 Oktober 2012

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.

0 komentar:

Posting Komentar

 

© 2011 e - Tutorial | by Moeh Fitrah