vbs 获取移动硬盘和usb 然后打开

Dim fso, d, dc,s,WshShell,drive,openDir
Set fso = CreateObject("Scripting.FileSystemObject")
Set WshShell = CreateObject("WScript.Shell")
Set dc = fso.Drives
For Each d in dc
if d.DriveType = 1 then  '移动存储器
s = d.DriveLetter & ":"
set openDir =WshShell.Exec("explorer.exe " & s)
end if
Next

 

 

不知道怎么发消息

給写在着了