admin 管理员组

文章数量: 1184232


2024年3月27日发(作者：semitec)

如何在VBS脚本中显示“选择文件对话框”或“选择目录对话框”

标签： windows 对话框 文件夹 shell

资料来源：MSDN——Scripting Guy

1、选择文件[XP操作系统，不能用于Win2000或98]，使用

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

Set objDialog = CreateObject("Dialog")

= "All Files|*.*"

lDir = "C:"

intResult = en

If intResult = 0 Then

Else me

End If

这是一个小脚本，所以让我们逐行进行解释吧。我们首先创建一个对

Dialog 对象的对象引用（名为“objDialog”）。接着，我们设

置对话框的“筛选”属性。我们要显示所有文件，所以我们将筛选设置成这样：

= "All Files|*.*"

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

= "Text Files|*.txt"

您也许能够看出它是如何运行的：我们为文件类型提供说明 (Text Files)，然后插入一

个竖线分隔符 (|)，最后使用标准的通配符来指示所有 .txt 文件 (*.txt)。是不是想默认显

示 .txt 文件，然后为用户提供查看所有文件的选项？那么可以使用以下代码：

= "Text Files|*.txt|All Files|*.*"

试一试，您就明白我们的意思了。

然后，我们指定默认文件夹。默认情况下，我们希望对话框显示位于驱动器 C 的根

文件夹中的文件，所以我们这样设置“InitialDir”属性：

lDir = "C:"

希望显示 C:Windows 文件夹中的文件吗？那么可以使用以下代码：

lDir = "C:Windows"


本文标签： 显示 文件 对话框 看出 对象

版权声明：本文标题：VBS脚本中显示“选择文件对话框”或“选择目录对话框” 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://roclinux.cn/p/1711482304a596302.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。