在vbs中 如何弹出新窗口?

是这样吗？

Dim objws
Set objws=WScript.CreateObject("wscript.shell")
do
result=MsgBox("[是]弹出窗口A" & vbCr & "[否]弹出窗口B",3,"弹出窗口")
If result=6 Then
objws.Run "c:\"
ElseIf result=7 Then
objws.Run "d:\"
Else
Exit Do
End If
loop

你能说的详细一点吗？

要弹出什么对话框？

不可能的...........

vbs能创建窗口吗?

很好

Run 方法
建立新的进程，执行 strCommand。

object.Run (strCommand, [intWindowStyle], [bWaitOnReturn])

参数
object

WshShell 对象。

strCommand

strCommand 参数中的环境变量将被自动展开。

intWindowStyle

可选项。设置正在运行的程序的窗口风格。

bWaitOnReturn

可选项。如果未指定 bWaitOnReturn 或其值为 FALSE，立即返回到脚本执行，而不是等待进程结束。

如果 bWaitOnReturn 被设置为 TRUE，Run 方法将返回应用程序返回的错误码。

如果未指定 bWaitOnReturn 或者为 FALSE，Run 方法将返回错误码 0。

说明
下表列出了 intWindowStyle 的可用设置：

intWindowStyle 描述
0 隐藏该窗口，激活另一个窗口。
1 激活并显示一个窗口。如果窗口被最小化或最大化，系统会将其恢复为原来的大小和位置。在第一次显示窗口时，应用程序应该指定该标志。
2 激活窗口，并将其显示为最小化窗口。
3 激活窗口，并将其显示为最大化窗口。
4 将一个窗口按照上一次的大小和位置显示。活动窗口仍保持活动状态。
5 激活窗口，并以其当前的大小和位置显示。
6 将指定的窗口最小化，并激活 Z 顺序中的下一个顶级窗口。
7 将窗口显示为最小化窗口。活动的窗口仍将保持活动状态。
8 显示窗口当前状态。活动的窗口仍将保持活动状态。
9 激活并显示窗口。如果窗口为最小化或最大化的，系统将其恢复到原始的大小和位置。在恢复最小化窗口时应用程序应该指定该标志。
10 根据启动应用程序的程序的状态设置显示状态。