请问如何设置文件夹权限禁止写入

dushang

如题，请问该如何设置运行软件时文件夹权限禁止写入，关闭软件后设置文件夹权限允许写入


百du搜的教程都很模糊，只能问论坛的大佬们了


补充内容 (2024-7-10 19:03):
是用易语言写文件夹权限禁止写入，关闭窗口后文件夹权限允许写入，非手动右键文件夹改权限

anyuezhiji

查了下微软的官方文档，写了个模块能满足要求
系统权限设置.zip (1.94 KB, 下载次数: 10)

2024-7-10 22:59 上传

点击文件名下载附件

调用方法如下：

  

调试输出 (选择 (设置文件权限 (“E:\test”, “Users”, #应用权限_写入权限, #权限模式_删除权限 ), “成功”, “失败”))
调试输出 (选择 (设置文件权限 (“E:\test”, “Users”, #应用权限_写入权限, #权限模式_追加权限 ), “成功”, “失败”))

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> 调试输出 (选择 (设置文件权限 (“E:\test”, “Users”, #应用权限_写入权限, #权限模式_删除权限), “成功”, “失败”))<br /> 调试输出 (选择 (设置文件权限 (“E:\test”, “Users”, #应用权限_写入权限, #权限模式_追加权限), “成功”, “失败”))

suyunsq

你是创建的文件夹还是说某一个文件夹

suyunsq

https://bbs.125.la/forum.php?mod=viewthread&tid=13681172

dushang

suyunsq 发表于 2024-7-10 18:57
你是创建的文件夹还是说某一个文件夹

某一个文件夹

LWB666

  

子程序名	返回值类型	公开	备 注
设置目录只读
参数名	类 型	参考	可空	数组	备 注
目录	文本型
只读	逻辑型

变量名	类 型	静态	数组	备 注
文件名	文本型		0
i	整数型
属性	整数型

文件_枚举 (目录, “*”, 文件名, 真, , 真)
如果 (只读)
属性 ＝ #只读文件
属性 ＝ 0
计次循环首 (取数组成员数 (文件名), i)
调试输出 (文件名 [i], 置文件属性 (文件名 [i], 属性))
计次循环尾 ()

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 设置目录只读<br /> .参数 目录, 文本型<br /> .参数 只读, 逻辑型<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 属性, 整数型<br /> <br /> 文件_枚举 (目录, “*”, 文件名, 真, , 真)<br /> .如果 (只读)<br />     属性 ＝ #只读文件<br /> .否则<br />     属性 ＝ 0<br /> .如果结束<br /> .计次循环首 (取数组成员数 (文件名), i)<br />     调试输出 (文件名 <i>, 置文件属性 (文件名 <i>, 属性))<br /> .计次循环尾 ()

补充内容 (2024-7-10 19:31):
在 __启动窗口_创建完毕 子程序下面调用这个 只读为真, __启动窗口_将被销毁 子程序下调用这个 只读为假

dushang

LWB666 发表于 2024-7-10 19:30
[e=0].版本 2
.支持库 spec

不行，还是可以将文件拖入到只读的文件夹里，我想要禁止其他文件拖入到这个文件夹

anyuezhiji

LWB666 发表于 2024-7-10 19:30
[e=0].版本 2
.支持库 spec

这是设置的文件夹下的所有文件为只读，需要设置文件夹只读

yjynxs

你把文件夹属性变成只读不就写入不了了吗

LWB666

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口
变量名	类 型	数组	备 注
线程ID	整数型

子程序名	返回值类型	公开	备 注
数组_是否存在	逻辑型
参数名	类 型	参考	可空	数组	备 注
数组	文本型				文本数组
文本	文本型				要检查是否存在的文本
索引	整数型				存在文本在数组中的位置

变量名	类 型	静态	数组	备 注
i	整数型

计次循环首 (取数组成员数 (数组), i)
如果真 (数组 [i] ＝ 文本)
索引 ＝ i
返回 (真)

计次循环尾 ()
返回 (假)

子程序名	返回值类型	公开	备 注
数组_取不重复			时间复杂度 n^2
参数名	类 型	参考	可空	数组	备 注
数组	文本型

变量名	类 型	静态	数组	备 注
i	整数型
j	整数型
存在	逻辑型
返回数组	文本型		0

计次循环首 (取数组成员数 (数组), i)
存在 ＝ 假
计次循环首 (取数组成员数 (数组), j)
如果真 (数组 [i] ＝ 数组 [j] 且 i ≠ j)
存在 ＝ 真

计次循环尾 ()
如果真 (存在 ＝ 假)
加入成员 (返回数组, 数组 [i])

计次循环尾 ()
数组 ＝ 返回数组

子程序名	返回值类型	公开	备 注
设置目录只读
参数名	类 型	参考	可空	数组	备 注
目录	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型		0
临时数组	文本型		0
比较数组	文本型		0
i	整数型
属性	整数型
被删除文件索引	整数型

文件_枚举 (目录, “*”, 文件名, 真, , 真)
判断循环首 (真)
重定义数组 (比较数组, 假, 0)
重定义数组 (临时数组, 假, 0)
计次循环首 (取数组成员数 (文件名), i)
加入成员 (比较数组, 文件名 [i])
计次循环尾 ()
文件_枚举 (目录, “*”, 临时数组, 真, , 真)
计次循环首 (取数组成员数 (临时数组), i)
加入成员 (比较数组, 临时数组 [i])
计次循环尾 ()
数组_取不重复 (比较数组)
如果真 (取数组成员数 (比较数组) ≠ 0)
计次循环首 (取数组成员数 (比较数组), i)
如果 (数组_是否存在 (文件名, 比较数组 [i], 被删除文件索引) ＝ 真)
调试输出 (“文件被删除:”, 比较数组 [i])
删除成员 (文件名, 被删除文件索引, )
调试输出 (“新文件:”, 比较数组 [i])
删除文件 (比较数组 [i])

计次循环尾 ()
延时 (1000)
判断循环尾 ()

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

线程ID ＝ 线程_启动_文本型 (到整数 (&设置目录只读), , , “C:\Users\93448\Desktop\临时文件夹\a”)

子程序名	返回值类型	公开	备 注
__启动窗口_将被销毁

线程_销毁 (线程ID)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> .程序集变量 线程ID, 整数型<br /> <br /> .子程序 数组_是否存在, 逻辑型<br /> .参数 数组, 文本型, 数组, 文本数组<br /> .参数 文本, 文本型, , 要检查是否存在的文本<br /> .参数 索引, 整数型, 参考 可空, 存在文本在数组中的位置<br /> .局部变量 i, 整数型<br /> <br /> .计次循环首 (取数组成员数 (数组), i)<br />     .如果真 (数组 <i> ＝ 文本)<br />         索引 ＝ i<br />         返回 (真)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 返回 (假)<br /> <br /> .子程序 数组_取不重复, , 公开, 时间复杂度 n^2<br /> .参数 数组, 文本型, 可空 数组<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 存在, 逻辑型<br /> .局部变量 返回数组, 文本型, , "0"<br /> <br /> .计次循环首 (取数组成员数 (数组), i)<br />     存在 ＝ 假<br />     .计次循环首 (取数组成员数 (数组), j)<br />         .如果真 (数组 <i> ＝ 数组 [j] 且 i ≠ j)<br />             存在 ＝ 真<br />         .如果真结束<br /> <br />     .计次循环尾 ()<br />     .如果真 (存在 ＝ 假)<br />         加入成员 (返回数组, 数组 <i>)<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> 数组 ＝ 返回数组<br /> <br /> <br /> .子程序 设置目录只读<br /> .参数 目录, 文本型<br /> .局部变量 文件名, 文本型, , "0"<br /> .局部变量 临时数组, 文本型, , "0"<br /> .局部变量 比较数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 属性, 整数型<br /> .局部变量 被删除文件索引, 整数型<br /> <br /> 文件_枚举 (目录, “*”, 文件名, 真, , 真)<br /> <br /> .判断循环首 (真)<br />     重定义数组 (比较数组, 假, 0)<br />     重定义数组 (临时数组, 假, 0)<br /> <br />     .计次循环首 (取数组成员数 (文件名), i)<br />         加入成员 (比较数组, 文件名 <i>)<br />     .计次循环尾 ()<br />     文件_枚举 (目录, “*”, 临时数组, 真, , 真)<br />     .计次循环首 (取数组成员数 (临时数组), i)<br />         加入成员 (比较数组, 临时数组 <i>)<br />     .计次循环尾 ()<br />     数组_取不重复 (比较数组)<br /> <br /> <br />     .如果真 (取数组成员数 (比较数组) ≠ 0)<br />         .计次循环首 (取数组成员数 (比较数组), i)<br />             .如果 (数组_是否存在 (文件名, 比较数组 <i>, 被删除文件索引) ＝ 真)<br />                 调试输出 (“文件被删除:”, 比较数组 <i>)<br />                 删除成员 (文件名, 被删除文件索引, )<br />             .否则<br />                 调试输出 (“新文件:”, 比较数组 <i>)<br />                 删除文件 (比较数组 <i>)<br />             .如果结束<br /> <br />         .计次循环尾 ()<br /> <br />     .如果真结束<br />     延时 (1000)<br /> .判断循环尾 ()<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 线程ID ＝ 线程_启动_文本型 (到整数 (&设置目录只读), , , “C:\Users\93448\Desktop\临时文件夹\a”)<br /> <br /> .子程序 __启动窗口_将被销毁<br /> <br /> 线程_销毁 (线程ID)

补充内容 (2024-7-10 20:27):
只能检测文件多了还是少了,不能检测文件夹

补充内容 (2024-7-10 20:30):
整体思路就是判断文件夹下的所有目录有没有多的,如果多出来了就给它删了

补充内容 (2024-7-10 20:30):
所有文件有没有多的,打错了