A 回答 (16件中1~10件)
- 最新から表示
- 回答順に表示
No.15
- 回答日時:
やはり、他のパソコンでも確認してみましたが「取り出し(J)」
の場合、
objShell.Namespace("E:\").Items.Item.InvokeVerb "取り出し(J)"
ではなく、
objShell.Namespace("E:\").Items.Item.InvokeVerb "取り出し(&J)"
のようなのですが。もう少しdenka3さんがもっているパソコンと
似たような環境のものを探してみます。
No.14
- 回答日時:
取り出し
は、ほかに末尾に何か書いてあります?
なければ、
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.namespace("D:\").Items.Item.InvokeVerb "取り出し"
Set objShell = Nothing
あれば、
"開く(O)"
のように末尾にあるものをくっつけてください。
くっつけなくても動作するかもしれません
この回答への補足
Private Sub CommandButton1_Click()
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.Namespace("E:\").Items.Item.InvokeVerb "取り出し(J)"
Set objShell = Nothing
End Sub
上記でやってみましたが、やはりだめでした。
No.12
- 回答日時:
>"取り出し(&J)"
を
"開く(O)"
にして、
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.namespace("D:\").Items.Item.InvokeVerb "開く(O)"
Set objShell = Nothing
ではどうですか?
No.11
- 回答日時:
"取り出し(&J)"
というのは、マイコンピュータのDVDの上で
右クリックしてときに表示されるメニューの
中の一つの項目です。たぶんこのような
項目があるはずです。この項目をプログラムから
実行してください、というのが
Sub test4()
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.namespace("D:\").Items.Item.InvokeVerb "取り出し(&J)"
Set objShell = Nothing
End Sub
の意味です。Shell.Applicationについては調べてみてください。
一応、こちらでは動作しています。
この回答への補足
Private Sub CommandButton1_Click()
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.Namespace("E:\").Items.Item.InvokeVerb "取り出し(&J)"
Set objShell = Nothing
End Sub
(1)上記のようにコマンドボタンのプロシージャの中に張り付けましたが、
それで良いでしょうか?
(2)DVD上で右クリックすると、「開く(O)」~「プロパティ」までの一般
的な別ウィンドウ(?)が現れ、"取り出し(&J)" という類の表示は出ま
せん。
(3)結論としてトレイは開きませんでした。
No.10
- 回答日時:
もし、使えるようであれば、
コードの最後に、
Set objShell = Nothing
End Sub
のようにして、オブジェクトを開放しておいてください。
No.9
- 回答日時:
少し検索してみました。
代替案になるか、マイコンピュータでDVDのトレイが(D:)
のようになっていれば、
Sub test4()
Dim objShell
Set objShell = CreateObject("Shell.Application")
objShell.namespace("D:\").Items.Item.InvokeVerb "取り出し(&J)"
End Sub
を実行してみてください。(E:)になっていれば
("D:\")
を
("E:\")
のようにしてみてください。
No.8
- 回答日時:
以前も、Windows Media Playerに関数する質問に
回答したことがあるのですが、そのときのバージョンは
11でした。
国内や、海外のサイトを調べてみたのですが、どうやら
バージョンが9までならば、VBAで
Set wmp = CreateObject("WMPlayer.OCX")
が使えるようです。11の場合はセキュリティの関係で
レジストリを変更する必要があるのかは調べては
いませんが、セキュリティが絡んでいる可能性は
あります。
また、海外では11で
Set wmp = CreateObject("WMPlayer.OCX")
が使えないのはバグではないか、という
意見もありました。
ただ、他の開発言語(たとえば、Delphi)などでは
接続に成功して、DVD、あるいはCDのトレイの操作を
しているようなので言語によっては接続方法が違う
可能性もあります。
したがって、バージョンが12に関しては恐らく
バージョンが11の場合と同じか、あるいは
さらにセキュリティが強化されている可能性が
あります。
VBA以外に、VBSというスクリプトで
Set wmp = CreateObject("WMPlayer.OCX")
という方法でWindows Media Playerに
接続し、トレイの開け閉めをすることが
できるのですが、VBSに関してもバージョンが
9までなら出来るようで、11はオートメーション
エラーが出るようです。多分12に関しても
同じだと思います。
ちなみに、私のパソコンはバージョンが9です。
ただ、バージョンを落とすのはいろいろ考え物で、
最近は、映像ファイルなどにウイルスや悪さを
するスクリプトを仕込んだりすることをする輩
もいるので、Windows Media Playerもかなりの
頻度でバージョンアップやアップデートを
繰り返しているようです。
長い回答の末にこのような回答になり、少し
気が重い感じがします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
このQ&Aを見た人はこんなQ&Aも見ています
-
ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
高校生はアルバイトするべきだろうか?賛成だったら「賛」、否定だったら「否」を文頭においてあなたの意見を教えてください。
-
フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
あなたが普段思っている「これまだ誰も言ってなかったけど共感されるだろうな」というあるあるを教えてください
-
映画のエンドロール観る派?観ない派?
映画が終わった後、すぐに席を立って帰る方もちらほら見かけます。皆さんはエンドロールの最後まで観ていきますか?
-
海外旅行から帰ってきたら、まず何を食べる?
帰国して1番食べたくなるもの、食べたくなるだろうなと思うもの、皆さんはありますか?
-
天使と悪魔選手権
悪魔がこんなささやきをしていたら、天使のあなたはなんと言って止めますか?
-
VBSでCDトレイのオープン/クローズのコーディング方法わかりません。
Visual Basic(VBA)
-
cd-romドライブを閉じる コマンドってありますか
その他(パソコン・周辺機器)
-
DVDトレイを開ける
Visual Basic(VBA)
-
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
- ・ゆるやかでぃべーと タイムマシンを破壊すべきか。
- ・歩いた自慢大会
- ・許せない心理テスト
- ・字面がカッコいい英単語
- ・これ何て呼びますか Part2
- ・人生で一番思い出に残ってる靴
- ・ゆるやかでぃべーと すべての高校生はアルバイトをするべきだ。
- ・初めて自分の家と他人の家が違う、と意識した時
- ・単二電池
- ・チョコミントアイス
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Selenium/VBA/Chrome エラーで...
-
C#.NETで.NETFrameworkのバージ...
-
【javaコンパイル時のエラーに...
-
gitでバージョン指定してダウン...
-
外字の判定方法がわかりません。
-
tomcatのバージョンアップについて
-
しばしばバージョン表記に現れ...
-
Laravelインストール中のエラー...
-
Tmocatのバージョン
-
使用しているJUnitのバージョン...
-
VBランタイムの種類って・・・...
-
visual stadio 参照問題
-
リアルプレイヤーの古い(以前...
-
オブジェクト指向について
-
超恥愚問ですが、CとC++の間に...
-
マイクラ1.7.10にcutallなどが...
-
Adobe Reader 9 のインストール
-
JAVA グローバル配列
-
PHP、MySQLの次にやるべき事は。
-
JComboBoxに入れるデータの数を...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
使用しているJUnitのバージョン...
-
gitでバージョン指定してダウン...
-
CrystalReportsのバージョン確...
-
visual stadio 参照問題
-
MSCOMCTL.OCXのアップデートの方法
-
EclipseでJavaコンパイラのバー...
-
Selenium/VBA/Chrome エラーで...
-
【javaコンパイル時のエラーに...
-
reactを利用できるnode.jsのバ...
-
tomcatのwebapps配下のディレク...
-
バイナリファイルの著作権など...
-
エクセルVBAがMACで動かない
-
Blenderのマルチスレッド化
-
UWSCが、動作環境の違いで動か...
-
chromedriverのDLについて
-
JRE 1.5.0.14のダウンロード先...
-
DirectX SDKのダウンロード
-
PHP+PostgreSQLにおける「pg_ex...
-
C# Excelを遅延バインディング...
-
qmailについて
おすすめ情報