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

名前

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

本文 説明不足ですみませんでした。 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 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.Print(oFolderItemVerb.Name) '↑ここで「'System.Diagnostics.Debug'のメンバーではありません。」というエラーが発生してしまいました。 If oFolderItemVerb.Name Like "Write these files*" Then oFolderItemVerb.DoIt() Exit For End If Next End Sub ソースを書いたのですが、エラーが発生して、 書き込みが出来ません。 あと、隠しファイルのまま保存する方法もどのように記述すれば良いか分かりません。