admin 管理员组

文章数量: 1184232


2024年3月27日发(作者:webservice中文)

VBS 显示“选择文件或文件夹”对话框的代码,经测试windows xp下才可以使用,

win2000,win2003没有内置这样的方法。

一、显示“选择文件”的对话框

问: 嗨,Scripting Guy!有没有什么方法可以让我使用脚本向用户显示一个对话框,

供用户选择文件使用?

答:您好。|

如果您使用的是 Windows 2000,我们不知道实现此操作的方法,至少操作系统中没

有内置这样的方法。

但如果您使用的是 Windows XP,情况就不同了。在 Windows XP 上,您可以使用

"Dialog” 对象向用户显示一个标准的“文件打开”对话框。

可以用类似以下代码的脚本:

代码如下:

Set objDialog = CreateObject("Dialog")

= "All Files|*.*"

lDir = "C:"

intResult = en

If intResult = 0 Then

Else

me

End If

这是一个小脚本,所以让我们逐行进行解释吧:

1)我们首先创建一个对 Dialog 对象的对象引用(名为

“objDialog”)。

2)接着,我们设置对话框的“筛选”属性。我们要显示所有文件,所以我们将筛选设

置成这样:

= "All Files|*.*"

假如我们只想显示文本文件,那该怎么办?在这种情况下,我们将使用以下筛选:

= "Text Files|*.txt"


本文标签: 显示 文件 方法 对话框 用户