set oShell = WScript.CreateObject("WScript.Shell") oShell.Run "I:\DCIM\100NCD90" oShell.SendKeys "^a"