ExcelVBAと外付けメディアについて

質問

こんにちは！
普通、ＵＳＢメモリなどのメディアを外す時は、画面右下のタスクバーからの操作で安全に取り外すと思うのですが、
エクセルのＶＢＡで、ＵＳＢメモリなどのメディアの取り外し、ということは出来るのでしょうか？
ＵＳＢメモリなどはＰＣに接続するたびにドライブの頭文字が変わってしまうと思うので、Ｇドライブと決まっているとしたら、でお願いします

回答No.1

marbin · ベストアンサー

ＵＳＢメモリは使ってないので試してませんが、
デジカメのメディアを取り出すのに↓のコード
(ＶＢＳ)で取外しています。

Dim Fs
Dim win
Set Fs = CreateObject _
("Scripting.FileSystemObject")
Set Dr = Fs.GetDrive("I:\")
If Dr.IsReady Then
Set Dr = Nothing
Set win = CreateObject("Shell.Application")
Set D = win.NameSpace("I:\")
Set XD = D.Items.Item
XD.InvokeVerb "取り出し(&J)"
End If

お礼

回答ありがとうございます！
参考になります！