FILES-LISTS-MAKER2.ahk

SetBatchLines, -1
;#NoTrayIcon
SetWorkingDir %A_ScriptDir%
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
FileCreateDir, %A_ScriptDir%\DATA
FileInstall , FILES-LISTS-MAKER2.ahk, %A_ScriptDir%\DATA\FILES-LISTS-MAKER2.ahk, 1
FileInstall , Milikymac.msstyles, %A_ScriptDir%\DATA\Milikymac.msstyles, 1
FileInstall , USkin.dll, %A_ScriptDir%\DATA\USkin.dll, 1
FileSetAttrib +HS, %A_ScriptDir%\DATA\FILES-LISTS-MAKER2.ahk, 2
FileSetAttrib +HS, %A_ScriptDir%\DATA\Milikymac.msstyles, 2
FileSetAttrib +HS, %A_ScriptDir%\DATA\USkin.dll, 2
FileSetAttrib +HS, %A_ScriptDir%\DATA, 2
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
SkinForm(Apply, A_ScriptDir . "\DATA\USkin.dll", A_ScriptDir . "\DATA\Milikymac.msstyles")
OnExit, GetOut
;DIR=%A_WorkingDir%
Loop,%A_WorkingDir%\* ,1,1
files .= (( files <> "" ) ? "|" : "" ) A_LoopFileName
Gui, Add, ComboBox, Simple w550 r26 vScript gRunScript, %files%
Gui, Add, Button, x10 y400 h20 w100 +Default gRunScript2, Run Script
Gui,Add,Button,x120 y400 h20 w100 gSave,Current File Name
Gui,Add,Button,x230 y400 h20 w100 gSave2,Save Full Path
Gui,Add,Button,x340 y400 h20 w100 gSave3,Save File Name
Gui,Add,Button,x450 y400 h20 w100 gSave4,Save File Hidden
Gui, Show, x50 y50, Najeeb Files And Folders List
Return ;                         // end of auto-execute section //
RunScript:
 IfNotEqual, A_GuiEvent, DoubleClick, Return
RunScript2:
 GuiControlGet, Script
 Run, "%Script%"
Return
Save:
Gui,submit,nohide
Run, %Comspec% /C DIR /B/A-D/OD %CD%\* >> FILE-CURRENT-LIST.txt,,hide
Return

Save2:
Gui,submit,nohide
Run, %Comspec% /C DIR /S /B /A %CD%\* >> FULL-PATH-LIST.txt,,hide
Return

Save3:
Gui,submit,nohide
Loop, %A_WorkingDir%\*.*, 1, 0
    {
        FileAppend, %A_LoopFileName%`n, FILES-LIST.txt
        Loop, %A_LoopFileName%\*.*, 1, 0
            {
                FileAppend, %A_TAB%%A_LoopFileName%`n, FILES-LIST.txt
            }
    }
Return
Save4:
Gui,submit,nohide
Run, %Comspec% /C DIR /S /AH %CD%\* >> FF-HIDDEN-LIST.txt,,hide
Return
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
GetOut:
GuiClose:
Gui, Hide
SkinForm(0)
ExitApp
return

SkinForm(Param1 = "Apply", DLL = "", SkinName = ""){
    if(Param1 = Apply){
        DllCall("LoadLibrary", str, DLL)
        DllCall(DLL . "\USkinInit", Int,0, Int,0, AStr, SkinName)
    }else if(Param1 = 0){
        DllCall(DLL . "\USkinExit")
        }
}
;=-=-=-=-=-=-=- END Script-=-=-=-=-=-=-=-=-
#S::Suspend
#P::Pause
#R::Reload
ESC::ExitApp