VBS soubor - klávesové zkratky

set oShell = WScript.CreateObject("WScript.Shell")
oShell.SendKeys "^a"

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

Potřebuju aby to provedlo v této složce, když to ale napíšu takhle, tak s eumístění neotevře a vyskočí chyba:
Řádek: 2
Znak: 1
Chyba: Je požadován objekt.: 'objShell'
Kód: 800A01A8

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

Kdyžtak (kdyby to bylo moc rychlé) použít wscript.Sleep 1000

Souhlas

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

Právě sedím u PC s Win XP a funguje to. Mám ale takový pocit, že ve Win 7, kde tohle budu mít, byl s tímhle problém. Dám vědět jestli to funguje.

Díky moc za pomoc.

Windows 7 nemám a proto za zparchantělou kompatibilitu neručím.

Je mi to jasné... Ale díky moc! Funguje to.
A když už jsem tohle vlákno založil...
Jako je příkaz run, který něco otevře, tak jak se to něco pomocí jiného příkazu zavírá? :)

Díky