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， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论