Mở các ổ đĩa CROM bằng một cú nhấp chuột ?

Máy tính của bạn có rất nhiều ổ CDROM , nếu bạn nhấn nút Eject để lấy từng cái ra thì thật mất thời gian , bạn có thể sử dụng cách sau để mở tất cả các ổ đĩa CDROM bằng một cú nhấp chuột. Để mở tất cã các ổ đĩa CDROM bạn làm như sau : Mở Notepad lên và chép đọan mã sau vào : Const CDROM = 4 For Each d in CreateObject("Scripting.FileSystemObject").Drives If d.DriveType = CDROM Then Eject d.DriveLetter & ":\" Welcome To VNECHIP http://www.vnechip.com - Where People Go To Know VNECHIP – Advanced Technologies , 24/7 Support , Free Fastest Online End If Next Sub Eject(CDROM) Dim ssfDrives ssfDrives = 17 CreateObject("Shell.Application")_ .Namespace(ssfDrives).ParseName(CDROM).InvokeVerb("E&ject") End Sub Lưu tập tin này thành cdeject.vbs