'
' 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))
