| |
dm_4ever
Posts: 2723
Score: 46
Joined: 6/29/2006
From: Orange County, California
Status: offline
|
I tried playing with this yesterday but had no luck. I tried something like this Dim objFSO : Set objFSO = CreateObject("Scripting.FileSystemObject") Dim objCD : Set objCD = objFSO.GetDrive("D:\") Do While Not objCD.IsReady WScript.Sleep 500 Loop The problem with this is that I couldn't figure out how to hold the shift long enough for it to prevent the CD from loading.
_____________________________
dm_4ever My philosophy: K.I.S.S - Keep It Simple Stupid Read Me: http://www.visualbasicscript.com/m_24727/tm.htm Frequently Asked Stuff: http://www.visualbasicscript.com/m_47117/tm.htm
|
|