| |
ПРИМЕЧАНИЕ: Если в качестве параметра ShowFindDialog задать несуществующий каталог, то окно поиска не появится. По-умолчанию (если каталог не задан) диалог вызывается с текущим каталогом.
Private Declare Function ShellExecute 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) As Long
Const SW_SHOW = 5
Public Sub ShowFindDialog(Optional InitialDirectory As String)
ShellExecute 0, "find", IIf(InitialDirectory = "", "",
InitialDirectory), vbNullString, vbNullString, SW_SHOW
End Sub
Private Sub Command1_Click()
Call ShowFindDialog("C:\Win")
End Sub
|
|