رایت موزیک بر روی سی دی

[پرستو پارسایی]

با این کد می توانید عملیات رایت سی دی یا دی وی دی رو انجام دهید صرفا برای الگو گرفتن هست و کد کاملی نیست

Imports System

Imports System.IO

Imports NAudio.Wave





' رویداد کلیک کردن باتن

Private Sub btnWriteCD_Click(ByVal sender As Object, ByVal e As EventArgs)

    ' مسیر فایل صوتی که می‌خواهید روی سی دی بنویسید

    Dim filePath As String = "C:\example\song.mp3"





    ' نام درایوی که سی دی در آن قرار دارد

    Dim driveName As String = "E:"





    ' ایجاد شیء CD/DVD Drive

    Dim drive = New DriveInfo(driveName)





    If drive.DriveType = DriveType.CDRom Then

        ' بستن درایو CD/DVD

        Dim door = New MMC.CDDrive(driveName)

        door.LoadMedia()

        door.Door(False)





        ' انتظار برای بسته شدن درایو

        System.Threading.Thread.Sleep(2000)





        ' نوشتن فایل صوتی بر روی سی دی

        Using reader = New Mp3FileReader(filePath)

        Using writer = New WaveFileWriter(driveName & "\song.wav", reader.WaveFormat)

            reader.CopyTo(writer)

        End Using

        End Using





        ' باز کردن درایو CD/DVD

        door.Door(True)

    Else

        MessageBox.Show("CD/DVD Drive not found!")

    End If

End Sub