|
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 sekaleee 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. Jika ada komentar bisa dilayangkan
melalui sony-ak@sony-ak.com.
Special thanks to Esa Ivani, I miss you girl.
Mission completed on 14:27 PM.
| Send
your comments or suggestions |
|
|
|
