by Bob Glenn (1 Submission)
Category: Miscellaneous
Compatability: VB 6.0
Difficulty: Unknown Difficulty
Originally Published: Wed 5th February 2003
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Searches for a folder or subfolder, opens it and shows tif's or whatever type of file you are looking for. Can also search for file name. Uses
API Declarations
Public Const SW_SHOWNORMAL = 1
Public Const SW_SHOWMINIMIZED = 2
Public Const SW_SHOWMAXIMIZED = 3
Public Const SW_SHOW = 5
Public Const SW_MINIMIZE = 6
Public Const SW_SHOWMINNOACTIVE = 7
Public Const SW_SHOWNA = 8
Public Const SW_RESTORE = 9
Public Const SW_SHOWDEFAULT = 10
Dim strPathToSearch As String
'Put wherever you want to start here. I used a text box for folder name at the end.
strPathToSearch = "C:\testimages\" & Text1.Text & "\"
Call ShellExecute(Me.hwnd, "find", strPathToSearch, vbNullString, vbNullString, SW_SHOWNORMAL)
SendKeys ("*.tif") 'Enters type of documents you want to look at in the folder (directory).
SendKeys (vbTab) 'Tab down to Search button
SendKeys (vbTab) ' "
SendKeys (vbTab) ' "
SendKeys ("~") 'Hit Enter Key to start search.
End Sub
No comments have been posted about Searches for a folder or subfolder, opens it and shows tif's or whatever type of file you are looki. Why not be the first to post a comment about Searches for a folder or subfolder, opens it and shows tif's or whatever type of file you are looki.