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      
無料ブログはココログ

« VBAからAdobe ReaderでPDFファイルを印刷する。(その2) | トップページ | CDやDVDドライブを開く、閉じる。(その2) »

2007年7月 6日 (金)

CDやDVDドライブを開く、閉じる。

Set WMP=CreateObject("WMPlayer.OCX")
For k=1 To WMP.cdromCollection.count
  WMP.cdromCollection.Item(k-1).eject
Next

もし、そのハードがソフトで閉じる機能を持っていれば、
eject()が「開く」、「閉じる」のトグルになります。

もし、WSHが終了しない場合、WMPの修正が出ているようなので、
Windows Updateで直ります。

« VBAからAdobe ReaderでPDFファイルを印刷する。(その2) | トップページ | CDやDVDドライブを開く、閉じる。(その2) »