Private Sub test1_Click()
Dim strPathName As String
If MsgBox("请选择您要打开的格式文件", vbOKCancel + vbInformation, "提示!!!!") = vbOK Then
With Application.FileDialog(3)
.Filters.Clear
'将下面一行的单引号去除,表示启用指定的文件夹位置
'.InitialFileName = "D:\"
If .Show Then
strPathName = .SelectedItems(1)
End If
End With
If strPathName <> "" Then
Shell "explorer.exe """ & strPathName & """", vbNormalFocus
End If
End If
End Sub