• Home
 · 
• Miscellaneous
 · 
• Searches for a folder or subfolder, opens it and shows tif's or whatever type of file you are looki

Searches for a folder or subfolder, opens it and shows tif's or whatever type of file you are looki

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




Rate Searches for a folder or subfolder, opens it and shows tif's or whatever type of file you are looki

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    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