2018年10月
  1 2 3 4 5 6
7 8 9 10 11 12 13
14 15 16 17 18 19 20
21 22 23 24 25 26 27
28 29 30 31      
無料ブログはココログ

« CDやDVDドライブを開く、閉じる。 | トップページ | WSHスクリプトからHTAを操作する。 »

2007年7月 7日 (土)

CDやDVDドライブを開く、閉じる。(その2)

Shell.Applicationを使います。

For Each FolderItem In CreateObject("Shell.Application").NameSpace(17).Items()
  If FolderItem.ExtendedProperty("Type")="CD ドライブ" Then FolderItem.InvokeVerb "取り出し(&J)"
Next

メディアの排出だけに限定するなら、

For Each FolderItem In CreateObject("Shell.Application").NameSpace(17).Items()
  If FolderItem.ExtendedProperty("Type")="CD ドライブ" Then If FolderItem.ExtendedProperty("FileSystem")<>"" Then FolderItem.InvokeVerb "取り出し(&J)"
Next

« CDやDVDドライブを開く、閉じる。 | トップページ | WSHスクリプトからHTAを操作する。 »