编写历程：

　　前段日子，晚上下班回家，一个舍友问我可不可以将一个目录下的隐藏文件全部显示出来（变成非隐藏文件），我说可以。

　　之后就开始大刀阔斧的寻找方法来做这件事，上网找，说需要一个Windows下的小工具，但是舍友的笔记本上未安装此工具。

　　那就找bat脚本进行遍历之后修改，可是弄了好半天bat脚本没有执行成功（主要是bat脚本好久不写了，生疏太多）。

　　自己亦感觉有些挂不住面子了，因为时间确实有些晚了，还没有任何改变的（变为非隐藏文件）迹象。

　　遂舍友说太晚，明日上班，大家先休息吧。

　　但总感觉自己是行的，是可以的，是没有问题的。

　　所以第二日上班，利用午休时间实现了一个小功能，即改变文件属性的小脚本，

　　对文件属性为：只读/存档/系统文件/隐藏文件/普通/脱机文件/临时文件  的一系列文件属性问题进行增加和删除的实现。

　　希望对大家有所启发。

　　具体实现如下：

 

#cs ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

Au3 版本:

脚本作者: wozijisun

Email: 

QQ/TM: 

脚本版本: v1.0

脚本功能: 实现了对文件属性：只读/存档/系统文件/隐藏文件/普通/脱机文件/临时文件 ----进行增加/删除 文件属性功能

#ce ＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿脚本开始＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿＿

#include <GUIConstants.au3>

#include <WindowsConstants.au3>

#include <ComboConstants.au3>

_main_gui()

Func _main_gui()

$Form1 = GUICreate("Change Directory", 450, 120, -1, -1)

GUISetIcon(@SystemDir & "\mspaint.exe", 0)

$label1 = GUICtrlCreateLabel("Directory Path:", 30, 13)

$filePath = GUICtrlCreateInput("", 140, 10, 280, Default)

$label2 = GUICtrlCreateLabel("File Attribute:", 30, 43)

$com = GUICtrlCreateCombo("", 140, 40, 140,Default,$CBS_DROPDOWNLIST + $WS_VSCROLL)

$com_value = GUICtrlSetData($com, "READONLY --- (只读)|"& _

"ARCHIVE ---- (存档)|"& _

"SYSTEM - (系统文件)|"& _

"HIDDEN - (隐藏文件)|"& _

"NORMAL ----- (普通)|"& _

"OFFLINE -(脱机文件)|"& _

"TEMPORARY(临时文件)", "READONLY --- (只读)")

GUICtrlCreateGroup("Choose",300,30,120,45)

$do_radio = GUICtrlCreateRadio("++++", 310, 44, 40, 25) ; 增加属性单选按钮

$undo_radio = GUICtrlCreateRadio("----", 360, 44, 40, 25) ; 删除属性单选按钮

GUICtrlSetState(-1, $GUI_CHECKED) ; 设置默认值

$OK_btn = GUICtrlCreateButton("MOVE ?", 85, 70, 60, 25)

GUICtrlSetState(-1, $GUI_DISABLE) ; 不用此按钮

$Display_btn = GUICtrlCreateButton("Display ?", 160, 70, 60, 25)

$Cancel_btn = GUICtrlCreateButton("CLOSE ?", 235, 70, 60, 25)

GUISetState(@SW_SHOW)

Do

$msg = GUIGetMsg()

Select

Case $msg == $OK_btn

$file = GUICtrlRead($filePath)

If Not FileExists($file) Then

MsgBox(0, "Info", "输入一个目录！")

ContinueLoop

EndIf

$att = FileGetAttrib($file)

If StringInStr($att, "D") == 0 Then

MsgBox(0, "Info", "输入一个目录！")

ContinueLoop

EndIf

If StringLen($file) == 0 Then

MsgBox(0, "Info", "输入一个目录！")

ContinueLoop

Else

If Not FileExists($file & "\D_I_R") Then

DirCreate($file & "\D_I_R")

EndIf

EndIf

$search = FileFindFirstFile($file & "\*")

If $search = -1 Then

MsgBox(0, "Info", "没有信息了。")

Exit 

EndIf

While 1

$f = FileFindNextFile($search)

If @error Then

MsgBox(0,"Info","好了，成功了。结果在D_I_R目录下。")

ExitLoop

EndIf

If $f == "D_I_R" Then

ContinueLoop

EndIf

$att = FileGetAttrib($file & "\" & $f)

If StringInStr($att, "H") <> 0 Then

DirCreate($file & "\D_I_R\" & $f)

FileMove($file & "\" & $f, $file & "\D_I_R\" & $f)

FileSetAttrib($file & "\D_I_R\" & $f & "\" & $f, "-H")

EndIf

WEnd

FileClose($search)

Case $msg == $Display_btn

$file = GUICtrlRead($filePath) ;获取目录

If Not FileExists($file) Then

MsgBox(0, "Info", "输入一个目录！")

ContinueLoop

EndIf

$att = FileGetAttrib($file) ;获取目录属性

If StringInStr($att, "D") == 0 Then

MsgBox(0, "Info", "输入一个目录！")

ContinueLoop

EndIf

If StringLen($file) == 0 Then

MsgBox(0, "Info", "输入一个目录！")

ContinueLoop

EndIf

$att_mark = GUICtrlRead($com) ; 读取属性信息

$flag = "" ; 定义属性值

If $att_mark == "READONLY --- (只读)" Then

$flag = "R"

ElseIf $att_mark == "ARCHIVE ---- (存档)" Then

$flag = "A"

ElseIf $att_mark == "SYSTEM - (系统文件)" Then

$flag = "S"

ElseIf $att_mark == "HIDDEN - (隐藏文件)" Then

$flag = "H"

ElseIf $att_mark == "NORMAL ----- (普通)" Then

$flag = "N"

ElseIf $att_mark == "OFFLINE -(脱机文件)" Then

$flag = "O"

ElseIf $att_mark == "TEMPORARY(临时文件)" Then

$flag = "T"

Else

MsgBox(0, "info", "There is something wrong with attribute.")

ContinueLoop

EndIf

$mark = "" ;获取增加或删除的指令

If BitAND(GUICtrlRead($do_radio), $GUI_CHECKED) = $GUI_CHECKED Then

$mark = "+"

EndIf

If BitAND(GUICtrlRead($undo_radio), $GUI_CHECKED) = $GUI_CHECKED Then

$mark = "-"

EndIf

$do_mark = $mark & $flag ;标记要增加还是要删除的属性

$search = FileFindFirstFile($file & "\*")

If $search = -1 Then

MsgBox(0, "Info", "没有信息了。")

Exit 

EndIf

While 1

$f = FileFindNextFile($search)

If @error Then

MsgBox(0,"Info","好了，成功了。结果在D_I_R目录下。")

ExitLoop

EndIf

If $f == "D_I_R" Then

ContinueLoop

EndIf

;$att = FileGetAttrib($file & "\" & $f)

;If StringInStr($att, "H") <> 0 Then ;可以做条件筛选，进行定向改变文件属性

FileSetAttrib($file & "\" & $f, $do_mark)

;FileSetAttrib($file & "\" & $f, $do_mark, 1) ;设置为1时会遍历目录下所有子目录及文件

;EndIf

WEnd

FileClose($search)

Case $msg == $Cancel_btn Or $msg == $GUI_EVENT_CLOSE

Exit 1

EndSelect

Until $msg == $GUI_EVENT_CLOSE

EndFunc