FILES-LISTS-MAKER.ahk

; <COMPILER: v1.1.34.04>
#NoEnv
#SingleInstance, Force
SetBatchLines, -1
;#NoTrayIcon
SetWorkingDir %A_ScriptDir%
;=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-
FileCreateDir, %A_ScriptDir%\DATA
FileInstall , FILES-LISTS-MAKER.ahk, %A_ScriptDir%\DATA\FILES-LISTS-MAKER.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-MAKER.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%
Gui,Add,ListView,r24 w600 ,IsFolder|Path|FullPath

Loop,%A_WorkingDir%\* ,1,1

    LV_Add("",FileExist(A_LoopFileFullPath)="D" ? "Folder" : "",A_LoopFileName, ""  A_LoopFileFullPath)

LV_ModifyCol(2)

LV_ModifyCol(1,"Center SortDesc")
Gui,Add,Button,x10 y450 h20 w100 gSave,Current File Name
Gui,Add,Button,x120 y450 h20 w100 gSave2,Save Full Path
Gui,Add,Button,x230 y450 h20 w100 gSave3,Save File Name
Gui,Add,Button,x340 y450 h20 w100 gSave4,Save File Hidden
Gui,Show,, Najeeb Files and Folders List Maker
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