
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も見ています
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
使用しているJUnitのバージョン...
-
EclipseでJavaコンパイラのバー...
-
Flashplayerの運用について
-
Selenium/VBA/Chrome エラーで...
-
gridviewでの高さの取得方法
-
phpMyAdmin上で、PHP MySQL ラ...
-
gitでバージョン指定してダウン...
-
mavenでtools.jar
-
vba クリップボードクリアにつ...
-
VBAの「for i=1 to cells(…」...
-
JSPファイルで生じるエラーをど...
-
IISワーカープロセスが原因でCP...
-
超恥愚問ですが、CとC++の間に...
-
MSFormsとは何ですか?
-
JSP・サーブレットとphpどちら...
-
unzip32.dllの利用について(64b...
-
Javaでのエラーについて
-
リクエストパラメータを暗号化...
-
Pure Javaとは?
-
JavaとAndroidアプリ(Java)違...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
使用しているJUnitのバージョン...
-
MSCOMCTL.OCXのアップデートの方法
-
gitでバージョン指定してダウン...
-
CrystalReportsのバージョン確...
-
Selenium/VBA/Chrome エラーで...
-
EclipseでJavaコンパイラのバー...
-
【javaコンパイル時のエラーに...
-
visual stadio 参照問題
-
pukiwikiのサーバ移転について
-
Fetchについて
-
バイナリファイルの著作権など...
-
RichEdit
-
Java は「アップデータを自動...
-
VC++もしくはMFCからEXCELをコ...
-
C#VB、使用するFrameworkのバー...
-
J2EEとServletAPIとJSPのJDKの...
-
HP作成のおすすめ参考書
-
【旧バージョンのダウンロード】
-
Javaのバージョンアップにとも...
-
Unityでゲームを作るのってどの...
おすすめ情報