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
不知道怎么发消息
給写在着了