!文件、文件夹工具

/*
Name:文件、文件夹工具
Version:1.0
Author:lyuchen
E-mail:lyuchen@sohu.com
*/

#NoTrayIcon
#SingleInstance,Force

Gui, Margin, 5, 5
Gui, Font, S10
Gui, -MaximizeBox
Gui, Add, Tab2, w400 h100, 属性|长短名|列表打印
Gui, Tab, 1
Gui, Add, Edit, w265 vFile,A:文件   D:文件夹
Gui, Add, Button, x+5 +Center gFind_a,文件
Gui, Add, Button, x+5 +Center gFind_b, 文件夹
Gui, Add, Button, x12 y+5 +Center gREADONLY, 只读(&R)
Gui, Add, Button, x+10 +Center gARCHIVE, 存档(&A)
Gui, Add, Button, x+10 +Center gSYSTEM, 系统(&S)
Gui, Add, Button, x+10 +Center gHIDDEN, 隐藏(&H)
Gui, Add, Edit, x+10 w100 +Center +ReadOnly vAttrib,属性
Gui, Tab, 2
Gui, Add, Edit, w315 vFile_S, %vFile_S%
Gui, Add, Button, x+5 +Center gShort,长转短
Gui, Add, Edit, x12 y+5 w315 vFile_L, %File_L%
Gui, Add, Button, x+5 +Center gLong,短转长
Gui, Tab, 3
Gui, Add, Edit, w270 vFile_1
Gui, Add, Button, x+5 +Center gFind_c,文件夹
Gui, Add, Button, x+5 +Center gFind_d, 输出
Gui, Show, AutoSize Center, 文件、文件夹工具
Return

GuiEscape:
GuiClose:
ExitApp
Return
;-----------------------属性-----------------------;
READONLY:
Gui, Submit, Nohide
FileSetAttrib, ^r, %File%, 1
FileGetAttrib, Attrib, %File%
GuiControl,,Attrib, %Attrib%
Return
ARCHIVE:
Gui, Submit, Nohide
FileSetAttrib, ^a, %File%, 1
FileGetAttrib, Attrib, %File%
GuiControl,,Attrib, %Attrib%
Return
SYSTEM:
Gui, Submit, Nohide
FileSetAttrib, ^s, %File%, 1
FileGetAttrib, Attrib, %File%
GuiControl,,Attrib, %Attrib%
Return
HIDDEN:
Gui, Submit, Nohide
FileSetAttrib, ^h, %File%, 1
FileGetAttrib, Attrib, %File%
GuiControl,,Attrib, %Attrib%
Return
Find_a:
Gui +OwnDialogs
FileSelectFile, File, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}
FileGetAttrib, Attrib, %File%
GuiControl,,File, %File%
GuiControl,,Attrib, %Attrib%
Return
Find_b:
Gui +OwnDialogs
FileSelectFolder, File, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}
FileGetAttrib, Attrib, %File%
GuiControl,,File, %File%
GuiControl,,Attrib, %Attrib%
Return

;-----------------------长短名-----------------------;
Short:
Gui, Submit, Nohide
Loop, 1
{
Loop, %File_S%, 1
File_S = %A_LoopFileShortPath%
GuiControl,,File_S, %File_S%
}
Return
Long:
Gui, Submit, Nohide
Loop, 1
{
Loop, %File_L%, 1
File_L = %A_LoopFileLongPath%
GuiControl,,File_L, %File_L%
}
Return

;-----------------------列表打印-----------------------;
Find_c:
Gui +OwnDialogs
FileSelectFolder, File_1, ::{20d04fe0-3aea-1069-a2d8-08002b30309d}
GuiControl,,File_1, %File_1%
GuiControl,,Attrib, %Attrib%
Return
Find_d:
FileList =  ; 初始化为空。
Loop, %File_1%*, 0
FileList = %FileList%%A_LoopFileName%`n
Loop, parse, FileList, `n
{
    if A_LoopField =  ; 忽略在列表底部的空白。
        continue
	FileAppend, `nFile-%A_Index% %A_LoopField%, %A_DesktopCommon%文件列表.txt
	continue
}

FileAppend, `n, %A_DesktopCommon%文件列表.txt
FileList =  ; 初始化为空。
Loop, %File_1%*, 2
FileList = %FileList%%A_LoopFileName%`n
Loop, parse, FileList, `n
{
    if A_LoopField =  ; 忽略在列表底部的空白。
        continue
	FileAppend, `nField-%A_Index% %A_LoopField%, %A_DesktopCommon%文件列表.txt
	continue
}
MsgBox, 文件列表保存为:`n%A_DesktopCommon%文件列表.txt
Return