vbs选择多种格式文件

你可以使用VBScript编写一个程序来选择多种格式的文件。下面是一个示例代码：

Set fso = CreateObject("Scripting.FileSystemObject")

' 选择文件夹路径
folderPath = "C:\Your\Folder\Path"

' 目标文件格式
fileFormats = Array("*.txt", "*.doc", "*.xls")

' 获取文件夹对象
Set folder = fso.GetFolder(folderPath)

' 遍历文件夹中的文件
For Each file In folder.Files
    ' 检查文件格式是否匹配
    For Each format In fileFormats
        If LCase(fso.GetExtensionName(file.Name)) = LCase(Mid(format, 3)) Then
            ' 执行你的操作，例如打印文件名
            WScript.Echo file.Name
            Exit For
        End If
    Next
Next

请将`folderPath`变量替换为你想要选择文件的文件夹路径，将`fileFormats`变量替换为你想要选择的文件格式。在上述代码中，我在匹配到指定格式的文件时仅仅打印了文件名，你可以根据需要修改为你想要执行的操作。保存上述代码为一个.vbs文件，然后通过双击运行它即可选择多种格式的文件。