使用AutoIT对增加和删除文件属性的实现

发布时间:2017-4-26 16:01:58 编辑:www.fx114.net 分享查询网我要评论
本篇文章主要介绍了"使用AutoIT对增加和删除文件属性的实现 ",主要涉及到使用AutoIT对增加和删除文件属性的实现 方面的内容,对于使用AutoIT对增加和删除文件属性的实现 感兴趣的同学可以参考一下。

编写历程:

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

  之后就开始大刀阔斧的寻找方法来做这件事,上网找,说需要一个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

上一篇:JSP登录页面使用Enter键登录【转】
下一篇:Django模板与Vue.js冲突问题

相关文章

相关评论

本站评论功能暂时取消,后续此功能例行通知。

一、不得利用本站危害国家安全、泄露国家秘密,不得侵犯国家社会集体的和公民的合法权益,不得利用本站制作、复制和传播不法有害信息!

二、互相尊重,对自己的言论和行为负责。

好贷网好贷款