WSH/Disc取り出し の変更点

[ トップ ]   [ 編集 | 差分 | バックアップ | 添付 | リロード ]   [ 新規 | 一覧 | 単語検索 | 最終更新 | ヘルプ ]

• 追加された行はこの色です。
• 削除された行はこの色です。
• WSH/Disc取り出し へ行く。
• WSH/Disc取り出し の差分を削除

---

　CD(DVD)ドライブをできるだけ確実に取り出す。Shellを使います。

 Sub Eject()
     Set Shell=WScript.CreateObject("Shell.Application")
     Set Folder=Shell.NameSpace(17)
     Set FolderItem=Folder.ParseName("Q:\")
     For Each Verb In FolderItem.Verbs
       Select Case Verb.Name
         Case "E&ject","取り出し(&J)"
           Verb.DoIt
       End Select
     Next
 End Sub

       

Tweet   　リンクはご自由に。ご意見・お問い合わせ・フィードバックはお気軽に メール ください。

　当サイトの情報・著作物は、特に指定がない限り、BSD Lisence(宣伝条項不要)とします。また、真実性、合法性、安全性、適切性、有用性、完全性、正確性について何ら保証するものではありません。利用者はその旨を了承の上、自己の責任において利用するものとし、当該情報に基づく損害、損失についても、当サイトは一切責任を負いません。 HTML convert time: 0.002 sec.