清除D盘非指定目录下的文件夹

mic2011

简洁代码有吗  d盘下文件和文件夹删除 除了指定的文件夹 sgidata 不删除
枚举目录和枚举文件 又会枚举到sgidata 里的文件  头疼

偶是小小菜鸟

  

子程序名	返回值类型	公开	备 注
_按钮1_被单击

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

目录_枚举子目录 (“E:”, path, 真)
计次循环首 (取数组成员数 (path), i)
如果真 (path [i] ≠ “E:\ProgramXt”)  ' 写不要删除的文件夹
调试输出 (path [i], , )  ' 这里写你要删除的代码

处理事件 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 path, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 目录_枚举子目录 (“E:”, path, 真)<br /> .计次循环首 (取数组成员数 (path), i)<br />     .如果真 (path <i> ≠ “E:\ProgramXt”)  ' 写不要删除的文件夹<br />         调试输出 (path <i>, , )  ' 这里写你要删除的代码<br />     .如果真结束<br /> <br />     处理事件 ()<br /> .计次循环尾 ()

偶是小小菜鸟

sgidata  写个判断不就好了

mic2011

偶是小小菜鸟 发表于 2022-5-28 13:44
sgidata  写个判断不就好了

给个例子啊 想不出来啊

偶是小小菜鸟

.版本 2
.支持库 spec

.子程序 _按钮1_被单击
.局部变量 path, 文本型, , "0"
.局部变量 i, 整数型

目录_枚举子目录 (“E:”, path, 真)
.计次循环首 (取数组成员数 (path), i)
    .如果真 (path [i] ≠ “E:\ProgramXt”)  ' 写不要删除的文件夹
        调试输出 (path [i], , )  ' 这里写你要删除的代码
    .如果真结束

    处理事件 ()
.计次循环尾 ()

mic2011

偶是小小菜鸟 发表于 2022-5-28 13:55
[e=0].版本 2
.支持库 spec

d盘根目录下也有文件啊 并非都是文件夹

mic2011

.版本 2
.支持库 spec

.局部变量 k, 文本型, , "0"
.局部变量 t, 整数型

目录_枚举子目录 (“C:\Users\Administrator\Desktop\新建文件夹”, k, 真)
.计次循环首 (取数组成员数 (k), t)
    .如果真 (k [t] ≠ “C:\Users\Administrator\Desktop\新建文件夹\sgidata”)
        删除目录 (k [t])
    .如果真结束

.计次循环尾 ()
文件_枚举EX (“C:\Users\Administrator\Desktop\新建文件夹”, , , &回调函数)

.子程序 回调函数
.参数 文件名, 文本型
.参数 完整路径, 文本型

调试输出 (完整路径)
删除文件 (完整路径)

mic2011

我写出来了 简单多了

Ruang

这是我原先做的一个，你可以拿去参考一下

d9905l

卧槽，。我差点把自己的D盘给删了。。。。。。！！！这玩意不能写！