AutoHotkey Community

IfExist, Notepad.exe
  Run, Notepad.exe

SearchString = *.ahk
PathToSearch = %A_WorkingDir%
RegExMatch =
File := File_GetPath(SearchString, RegExMatch, 1, PathToSearch)
If ErrorLevel
    MsgBox "%File%" found.

MsgBox, % WhereIs( "pinball.exe" )
MsgBox, % WhereIs( "iexplore.exe" )
MsgBox, % WhereIs( "firefox.exe" )
MsgBox, % WhereIs( "autohotkey.chm" )
MsgBox, % WhereIs( "user32.dll" )
MsgBox, % WhereIs( "system.ini" )


WhereIs( File ) {

 ; Working Folder
 Path0 := A_WorkingDir
 DllCall( "shlwapi\PathAddBackslashA", UInt,&Path0 ) , VarSetCapacity( Path0, -1 )
 IfExist, % Path0 File, Return Path0 File

 ; Script Folder
 Path1 := A_ScriptDir
 DllCall( "shlwapi\PathAddBackslashA", UInt,&Path1 ) , VarSetCapacity( Path1, -1 )
 IfExist, % Path1 File, Return Path1 File

 ; AutoHotkey Folder
 SplitPath, A_AhkPath,,Path2
 DllCall( "shlwapi\PathAddBackslashA", UInt,&Path2 ) , VarSetCapacity( Path2, -1 )
 IfExist, % Path2 File, Return Path2 File

 ; Standard Library Folder
 Path3 := Path2 "Lib\"
 IfExist, % Path3 File, Return Path3 File

 ; User Library Folder
 Path4 := A_MyDocuments "\Lib\"
 IfExist, % Path4 File, Return Path4 File

 ; Parsing DOS Path variable
 EnvGet, DosPath, Path
 Loop, Parse, DosPath, `;
  {
    IfEqual, A_LoopField,, Continue
    Path5 := A_LoopField
    DllCall( "shlwapi\PathAddBackslashA", UInt,&Path5 ) , VarSetCapacity( Path5, -1 )
    IfExist, % Path5 File, Return Path5 File
  }

 ; Looking up Registry
 RegRead, Path6, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\%File%
 IfExist, % Path6, Return Path6

}

WhereIs(File)
{
   ; Working Folder
   Path := A_WorkingDir "\"
   IfExist, % Path File, Return Path File

   ; Script Folder
   if(A_ScriptDir != A_WorkingDir) {
      Path := A_ScriptDir "\"
      IfExist, % Path File, Return Path File
   }

   ; Parsing DOS Path variable
   EnvGet, DosPath, Path
   Loop, Parse, DosPath, `;
   {
      IfEqual, A_LoopField,, Continue
      Path := A_LoopField "\"
      IfExist, % Path File, Return Path File
   }

   ; Looking up Registry
   RegRead, Path, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\%File%
   IfExist, % Path, Return Path
   
   ; AutoHotkey Folder
   SplitPath, A_AhkPath,,Path
   IfExist, % Path "\" File, Return Path "\" File

   ; Standard Library Folder
   Path := A_AhkPath "Lib\"
   IfExist, % Path File, Return Path File

   ; User Library Folder
   Path := A_MyDocuments "\Lib\"
   IfExist, % Path File, Return Path File
}

; #NoEnv

F()

F() {

MsgBox, % PATH

}

WhereIs(FileName)
{
   ; Working Folder
   PathName := A_WorkingDir "\"
   IfExist, % PathName FileName, Return PathName FileName

   ; Script Folder
   if(A_ScriptDir != A_WorkingDir) {
      PathName := A_ScriptDir "\"
      IfExist, % PathName FileName, Return PathName FileName
   }

   ; Parsing DOS Path variable
   EnvGet, DosPath, Path
   Loop, Parse, DosPath, `;
   {
      IfEqual, A_LoopField,, Continue
      IfExist, % A_LoopField "\" FileName, Return A_LoopField "\" FileName
   }

   ; Looking up Registry
   RegRead, PathName, HKLM, SOFTWARE\Microsoft\Windows\CurrentVersion\App Paths\%FileName%
   IfExist, % PathName, Return PathName
   
   ; AutoHotkey Folder
   SplitPath, A_AhkPath,,PathName
   IfExist, % PathName "\" FileName, Return PathName "\" FileName

   ; Standard Library Folder
   PathName := A_AhkPath "Lib\"
   IfExist, % PathName FileName, Return PathName FileName

   ; User Library Folder
   PathName := A_MyDocuments "\Lib\"
   IfExist, % PathName FileName, Return PathName FileName
}