December 1, 2005 - WinTask - ShowFindDialog

'

' ShowFindDialog

'
' Author: Joe Strazzere

'

'Call ShowFindDialog("e:")

'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

ret=External("shell32.dll","ShellExecuteA",0,"find","d: est",0,0,5)
ret=External("shell32.dll","ShellExecuteA",0,"explore","d: est",0,0,5)
'msgbox(str$(ret))