How to open cd rom useing notepad application.

 How to open cd  rom useing notepad application.

step1 -- open your pc or laptop notepad application.

step2 -- Then this code copy and past it.

Dim ts

Dim strDriveLetter

Dim intDriveLetter

Dim fs 'As Scripting.FileSystemObject

Const CDROM = 4

On Error Resume Next

Set fs = CreateObject("Scripting.FileSystemObject")

strDriveLetter = ""

For intDriveLetter = Asc("A") To Asc("Z")

Err.Clear

If fs.GetDrive(Chr(intDriveLetter)).DriveType = CDROM Then

If Err.Number = 0 Then

strDriveLetter = Chr(intDriveLetter)

Exit For

End If

End If

Next

Set oWMP = CreateObject("WMPlayer.OCX.7" )

Set colCDROMs = oWMP.cdromCollection

For d = 0 to colCDROMs.Count - 1

colCDROMs.Item(d).Eject

Next 'null

For d = 0 to colCDROMs.Count - 1

colCDROMs.Item(d).Eject

Next 'null

set owmp = nothing

set colCDROMs = nothing

step3 -- save it.file extension is .vbs

             ex-- open.vbs

 go to your save location and duble click it.then your pc or laptop cd rom is open.

Leave your comments below the post and share that post your friends.