切换dos并dir的vbs

<script language=vbscript>
Dim oShell
Set oShell = WScript.CreateObject ("WSCript.shell")
oShell.run "cmd /K CD c:\ & dir"
Set oShell = Nothing
</script>