易语言设置文件访问权限:
1、运行(“cmd/ccacls.exec:\a.txt/e/t/peveryone:F”,假,)
'c:\a.txt要修改的文件或文件夹,everyone是用户名,F是完全控制,改成N就是拒绝访问,R是读取,W是写入,C是更改。
2、置文件属性(文件名,属性数值)‘属性数值在下面有为一个文件设置属性信息。成功返回真,失败返回假。本命令为初级命令。
参数<1>的名称为“欲设置其属颤陪裂性的文件名称”,类型为“文本型(text)”。
参数<2>的名称为“欲设置为的属性值”,类型为“整数型(茄闭int)”。参数值可以为以乱脊下常量值或其和:1、#只读文件;2、#隐藏文件;4、#系统文件;32、#存档文件。通过将这些常量值加起来可以一次设置多个文件属性。
置文件属性 (文族团件名, 位或(取文件属性 (文件名), #隐藏文件))'加入隐藏属性置文件属高厅性 (文件名, 位异或 (取文件戚穗隐属性 (文件名), #隐藏文件)) '去除隐藏属性
_启动窗口创建时调用上面的
_启动窗口销毁时调用下面的就OK了
.版本 2.程序集 窗口程序瞎晌集1
.程序集变量 列表索引数组, 整数型, , "0"
.子程序 __启动窗口_创建完毕
.局部变量 文件, 文本型
.局部变量 目录, 文本型
列表框1.允许选择多项 = 真
目录 = “u:\”
列表框1.清空 ()
文件 = 寻找文件磨判锋 (目录 + “*.*”, 2)
.判冲猛断循环首 (文件 ≠ “”)
文件 = 寻找文件 (, 2) ' 查找"u:\"目录下的所有隐藏文件.
.如果真 (文件 ≠ “”)
列表框1.加入项目 (目录 + 文件, )
.如果真结束
.判断循环尾 ()
.子程序 _列表框1_列表项被选择
列表索引数组 = 列表框1.取所有被选择项目 ()
.子程序 _按钮1_被单击
.局部变量 文件名, 文本型
.局部变量 计次, 整数型
.计次循环首 (取数组成员数 (列表索引数组), 计次)
文件名 = 列表框1.取项目文本 (列表索引数组 [计次])
置文件属性 (文件名, 0) ' 取消所有被选择的文件属性.
.计次循环尾 ()
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)