vb.net - 如何在 Visual Basic 应用程序中打开“Windows 搜索”？

Question

如何使用 Visual Basic 打开应用程序中特定文件夹的“Windows Search Companion”或“Windows Basic Search”？

我找到了这篇文章，但这不是我要找的。

Answer 1

像这样？

VBA/VB6 代码

Option Explicit

'~~> API declaration for the windows "Search Results" dialog
Private Declare Function ShellSearch& Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Long)

Private Const SW_SHOWNORMAL = 1

Const drv As String = "C:\"

Sub Sample()
    ShellSearch 0, "Find", drv, "", "", SW_SHOWNORMAL
End Sub

在 VBA 中测试

在 Win XP 中

在赢 7

VB.NET（在 Visual Studio Ultimate 64 位上测试）

'~~> API declaration for the windows "Search Results" dialog
Private Declare Function ShellSearch Lib "shell32.dll" _
Alias "ShellExecuteA" (ByVal hwnd As Integer, ByVal lpOperation As String, _
ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, _
ByVal nShowCmd As Integer) As Integer

Private Const SW_SHOWNORMAL = 1

Const drv As String = "C:\"

Private Sub Button1_Click(ByVal sender As System.Object,
ByVal e As System.EventArgs) Handles Button1.Click
    ShellSearch(0, "Find", drv, "", "", SW_SHOWNORMAL)
End Sub