WSH/Disc取り出し
をテンプレートにして作成
Search in
this wiki
and
or
[
トップ
] [
新規
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
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
終了行:
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
ページ名:
![[Return to Top Page]](image//logo.png "[Return to Top Page]"){kind=logo}
