vb.net を使ってUDF1.02,UDF1.5,UDF2.01でDVDをフォーマットしたいです。

Question

vb.net を使ってUDF1.02,UDF1.5,UDF2.01でDVDをフォーマットしたいです。UDF1.02,UDF1.5,UDF2.01でDVDをフォーマットするプログラムはimapi2を使っていて、imapi2のエラーが出て動きませんでした。 動作するサンプルが有れば教えてください。 以下エラーのソース Imports IMAPI2FS Imports IMAPI2 Imports IMAPI2FS.Interop Public Class DVDフォーマット処理
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click Try ' IMAPI2のCOMオブジェクトを作成 Dim fileSystem As IFileSystemImage = New MsftFileSystemImage() Dim discFormat As IDiscFormat2Data = New MsftDiscFormat2Data() ' ディスクのフォーマットを開始 FormatDisc(fileSystem, discFormat) Console.WriteLine("ディスクのフォーマットが完了しました。") Catch ex As Exception Console.WriteLine("エラー: " & ex.Message) End Try End Sub Sub FormatDisc(fileSystem As IFileSystemImage, discFormat As IDiscFormat2Data) ' ここでディスクのフォーマットに関する設定を行う ' ファイルシステムの設定 fileSystem.ChooseImageDefaultsForMediaType(IMAPI2FS.IMAPI_MEDIA_PHYSICAL_TYPE.IMAPI_MEDIA_TYPE_DVDDASHR.IMAPI_MEDIA_TYPE_CDR) ' ディスクフォーマットの設定 discFormat.Recorder = "D:" discFormat.ClientName = "Sample Disc" discFormat.ForceMediaToBeClosed = True ' ディスクのフォーマットを開始 discFormat.Write(fileSystem()) End Sub End Class エラー 例外がスローされました: 'System.InvalidCastException' (WindowsApp1.exe の中)エラー: 型 'System.String' のオブジェクトを型 'IMAPI2.MsftDiscRecorder2' にキャストできません。プログラム '[6544] WindowsApp1.exe' はコード 0 (0x0) で終了しました。

Answer 1

masami kusumoroさん、こんにちは。フォーラムオペレーターのRainaです。
Microsoft Q&A フォーラムにご投稿くださいましてありがとうございます。

エラーメッセージによって、「Recorder」プロパティが型「IMAPI2.MsftDiscRecorder2」のオブジェクトを必要としていることを示していますが、文字列「D:」を指定しています。

次のコードを試して、DVD レコーダー デバイスを表す 「MsftDiscRecorder2」 オブジェクトを初期化して設定してみてください。

Dim discRecorder As New MsftDiscRecorder2()

discRecorder.InitializeDiscRecorder("D:")

discFormat.Recorder = discRecorder　　

どうぞよろしくお願いします。

---

参考になった投稿には「回答を承認する」と投票をご設定ください。さらに質問がある場合は、「コメント」を追加してください。 注意：Q&Aからメール通知を受け取りたい場合には、ドキュメントの手順に基づいて、メール通知を有効にしてください。 Regards, Raina