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

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

No.1 ベストアンサー 回答者： marbin 回答日時： 2007/01/09 20:06

ＵＳＢメモリは使ってないので試してませんが、

デジカメのメディアを取り出すのに↓のコード
(ＶＢＳ)で取外しています。

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

この回答へのお礼

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

お礼日時：2007/01/25 14:34