发表评论(0)作者:不详, 平台:VB6.0+Win98, 阅读:9930, 日期:2000-11-09
Displaying the Find Dialog
Do your users need to search for files?
Give them a helping hand and bring up the Find Files dialog box with this handy code snippet.
To run, just call the ShowFindDialog method, passing an optional directory to search.
Note: If you pass an invalid directory, the Find Files dialog will not appear. If you don抰 pass a directory, the 慶urrent?directory will be automatically selected.
Usage
Call ShowFindDialog("e:\karl\")
Code
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
Do your users need to search for files?
Give them a helping hand and bring up the Find Files dialog box with this handy code snippet.
To run, just call the ShowFindDialog method, passing an optional directory to search.
Note: If you pass an invalid directory, the Find Files dialog will not appear. If you don抰 pass a directory, the 慶urrent?directory will be automatically selected.
Usage
Call ShowFindDialog("e:\karl\")
Code
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