FILE-SEARCH.ahk

; <COMPILER: v1.1.34.04>
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
;#NoTrayIcon
SetWorkingDir %A_ScriptDir%
;----------------------------------------------------
FileEncoding, UTF-8
vlcx        =%A_programfiles%\VideoLAN\VLC\vlc.exe
vlcx2        =%A_windir%\notepad.exe
vlcx3        =D:\TOOLS\HONEYVIEW-PORTABLE\Honeyview.exe
vlcx4        =%A_windir%\explorer.exe
vlcx5        =%A_programfiles%\WinRAR\WinRAR.exe
vlcx6        =%A_windir%\explorer.exe
HK1=Esc                       ;- ESC toggle sound
  Hotkey,%hk1%,pause1,ON
t:=""
Filename1=NAJEEB SHAH KHAN SEARCH FILES AND RUN  ( esc= sound ON/OFF )
;---------------------------------------------
;all1     :="mp3,aac,flac,aif,aiff,m4a,mp4,flv,mpg,vob,mvk,wmv,avi,m3u,m3u8,xml,jpg,jpge,bmp,png,gif,ico,txt,bat,vbs,ahk,au3,sh,ini,ls,doc,cmd,js,pdf,fm,exe,ink,cpl,dll,rar,zip,7z,iso,daa,bin,cue,img"
music1    :="mp3,aac,flac,aif,aiff,m4a"
video1    :="mp4,flv,mpg,vob,mvk,wmv,avi"
channel1   :="m3u,m3u8,xml"
picture1   :="jpg,jpge,bmp,png,gif,ico"
text1   :="txt,bat,vbs,ahk,au3,sh,ini,ls,doc,cmd,js,pdf,fm"
exe1   :="exe,ink"
sys1   :="cpl"
zip1   :="rar,zip,7z,iso,daa,bin,cue,img"
;------------------------------------------------
Gui,default
Gui,Color, ControlColor, Black
Gui,Font, CBlack s14, Lucida Console
;-------------------------------------------------
Gui, Add, DropDownList, x10 y5 w160 h25 vDrive gFD1, Select Drive||C|D|E|F|G|H|I|J|K|L|M|N|O|P|Q|R|S|T|U|V|W|X|Y|Z
Gui, Add, Button,x180 y5 w160 h25 gFolder  , Select-Folder
Gui,Font, CWhite s14, Lucida Console
Gui, Add, Edit,x350 y5 w260 h25 vSEC  , Type Search Ext
Gui,Font, CBlack s14, Lucida Console
Gui, Add, Button,x620 y5 w160 h25 gEXT, SEARCH
Gui,Add, Button,x830    y5  w100 h25 gREF   ,REFRESH
Gui, Add, ListView, x10 y40 h425 w920 gMLV vF1 altsubmit grid backgroundgray, Name|Fullpath
LV_ModifyCol(1,890)
LV_ModifyCol(2,0)

GUI,show, NA W940 H550 X20 Y0,%filename1%
return
;-------------------------------------
MLV:
if A_GuiEvent = Normal
  {
  LV_GetText(C2,A_EventInfo,2)
  SplitPath,C2, name, dir, ext, name_no_ext, drive
  if ext in %music1%
      {
      Process, Exist, vlc.exe
      If ErrorLevel
        Process,close,vlc.exe
      Soundplay, %C2%
      }
  else
     {
 if ext in %text1%
      {
      Process, Exist, vlc.exe
      If ErrorLevel
        Process,close,vlc.exe
      run, %C2% %vlcx2%
      }
else
     {
 if ext in %picture1%
      {
      Process, Exist, vlc.exe
      If ErrorLevel
        Process,close,vlc.exe
      run, %C2% %vlcx3%
      }
else
     {
 if ext in %exe1%
      {
      Process, Exist, vlc.exe
      If ErrorLevel
        Process,close,vlc.exe
      run, %C2% %vlcx4%
      }
else
     {
 if ext in %zip1%
      {
      Process, Exist, vlc.exe
      If ErrorLevel
        Process,close,vlc.exe
      run, %C2% %vlcx5%
      }
else
     {
 if ext in %sys1%
      {
      Process, Exist, vlc.exe
      If ErrorLevel
        Process,close,vlc.exe
      run, %C2% %vlcx6%
      }
  else
    {
    ifexist,%vlcx%
      {
      soundplay,NotExisting.avi
      ;run,%vlcx% --one-instance --qt-start-minimized "%c2%",,hide,pid1
      run,%vlcx%  --one-instance "%c2%"
      ;if ErrorLevel
      ;   MsgBox Could not open "%C2%".
      }
     else
       run,"%c2%"
    }
  }
}
}
}
}
}
return
;-----------------------------------------
FD1:
Gui, Submit, NoHide ; Get user input from GUI
FD1:= Drive ":\"                                          ;- folderselect from here
return
Folder:
PRESELECT  =%fd1%         ;- search from here
FileSelectFolder,MF,%PRESELECT%
if MF=
  return
SplitPath,MF, name, dir, ext, name_no_ext, drive
soundplay,NotExisting.avi
Loop, %mf%\*.*, 0, 1
  {
  If A_LoopFileExt in %sec%
    LV_Add("", A_LoopFileName, A_LoopFileLongPath)
  }
return
;-------------------------------------
EXT:
Gui, Submit, NoHide ; Get user input from GUI
LV_Delete()
soundplay,NotExisting.avi
Loop,%fd1%\*.*, 0, 1
   {
   SplitPath,A_LoopFileLongPath, name, dir, ext, name_no_ext, drive
   If ext In %sec%
      LV_Add("", A_LoopFileName, A_LoopFileLongPath)
   }
LV_ModifyCol(1, "Logical SortAsc")
return
;-------------------------------------
;- Hotkey sound ON /OFF
pause1:
t:=!t
if t
  soundset,1,WAVE,mute           ; WAVE ON
else
  soundset,0,WAVE,mute           ; WAVE OFF
return
;---------------------------------------------
;Guiclose:
Process, Exist, vlc.exe
If ErrorLevel
   {
   msgbox, 262435,Close,Want you close also Audio ?
   ifmsgbox,NO
      {
      soundset,0,master,mute
      exitapp
      }
   ifmsgbox,Cancel
      {
      return
      }
   else
     {
     soundset,0,master,mute
     process,close,vlc.exe
     exitapp
     }
   }
else
  {
  soundset,0,master,mute
  exitapp
  }
  Return
;-----------------------------
REF:
    Gui, Submit, NoHide
Reload
return
;============ END SCRIPT BUTTON_MENU ==============
#R::Reload
#S::Suspend
#P::Pause
#ESC::ExitApp