vbs打开文件对话框

您可以使用"Scripting.FileSystemObject"和"WScript.Shell"对象来创建一个文件对话框，让用户选择需要打开的文件。具体实现代码如下：

' 创建Shell对象
Set WshShell = CreateObject("WScript.Shell")
' 创建文件对话框
Set objShell = CreateObject("Shell.Application")
Set objFolder = objShell.Namespace(0)
Set objFolderItem = objFolder.Self
Set objDialog = objShell.FileOpenDialog("请选择需要打开的文件", 0, "所有文件 (*.*)|*.*", 0)
' 如果用户选择了文件，则返回文件路径
If objDialog.Show = 0 Then
    Set objSelected = objDialog.SelectedItems
    ' 打开选择的文件
    WshShell.Run objSelected.Item(0)
End If
这个代码会先创建一个Shell对象，然后使用Shell对象创建一个文件对话框。设置对话框的标题为"请选择需要打开的文件"，过滤文件类型为所有文件，多选模式为关闭。当用户选择了一个或多个文件时，代码会获取第一个选中的文件路径，并打开此文件。如果用户没有选择文件，代码将不会执行任何操作。