CD-Rに保存するには？ (ID:115783)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 Dim oShell As Object Dim oCDRFolder As Object Dim oFolder As Object Dim oFolderItems As Object Dim oFolderItem As Object Dim oFolderItemVerbs As Object Dim oFolderItemVerb As Object oShell = CreateObject("Shell.Application") oCDRFolder = oShell.NameSpace("E:\") oFolder = oShell.NameSpace("C:\test") oCDRFolder.CopyHere(oFolder, 0&) MsgBox("U HAVE FILES WAITING TO BE WRITTEN TO THE CD", vbInformation) oFolderItems = oCDRFolder.Items() oFolderItem = oFolderItems.Item() oFolderItemVerbs = oFolderItem.Verbs For Each oFolderItemVerb In oFolderItemVerbs Debug.Write(oFolderItemVerb.Name) If oFolderItemVerb.Name Like "Write these files*" Then oFolderItemVerb.DoIt() Exit For End If Next でできたのですけれど、書き込み準備にしかできません。 VB.NETからプログラムで実際に書き込み準備をして、書き込ませたのですけれど、 どうすればいいでしょうか？ ファイルやフォルダの属性をそのままの状態で