易语言一个问题求助

丰晨软件

aipca 发表于 2025-2-25 16:37
文件名 ＝ 寻找文件 (, ) 这里已经把文件名给重置了 这行屏掉试试

  

清除数组 (U盘列表)
U盘列表 ＝ 取驱动器列表 (3)
如果真 (取数组成员数 (U盘列表) ＝ 0)
返回 ()
计次循环首 (取数组成员数 (U盘列表), i)
处理U盘文件 (U盘列表 [i])
计次循环尾 ()
' 调试输出 (U盘列表)

子程序名	返回值类型	公开	备 注
处理U盘文件
参数名	类 型	参考	可空	数组	备 注
盘符	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型
完整路径	文本型
属性	整数型

文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件 )
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
完整路径 ＝ 盘符 ＋ “\” ＋ 文件名
运行 (“attrib -a -s -h -r ” ＋ 完整路径, 假, #隐藏窗口 )  ' 去除隐藏属性
删除文件 (盘符 ＋ “\Autorun.inf”)
删除文件 (盘符 ＋ “\*.vbs”)
删除文件 (盘符 ＋ “\*.lnk”)
处理U盘文件 (完整路径)  ' 递归调用
' 文件名 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
是否目录	逻辑型
参数名	类 型	参考	可空	数组	备 注
路径	文本型

返回 (取文件属性 (路径) ％ 16 ＝ 0)  ' 通过取余判断目录属性

子程序名	返回值类型	公开	备 注
取所有驱动器	文本型

变量名	类 型	静态	数组	备 注
drives	文本型

drives ＝ 取空白文本 (260)
GetLogicalDriveStringsA (260, drives)
返回 (drives)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> 清除数组 (U盘列表)<br /> U盘列表 ＝ 取驱动器列表 (3)<br /> .如果真 (取数组成员数 (U盘列表) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (U盘列表), i)<br />     处理U盘文件 (U盘列表 <i>)<br /> .计次循环尾 ()<br /> ' 调试输出 (U盘列表)<br /> <br /> .子程序 处理U盘文件<br /> .参数 盘符, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 属性, 整数型<br /> <br /> 文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件)<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />         完整路径 ＝ 盘符 ＋ “\” ＋ 文件名<br />     .如果真结束<br />     运行 (“attrib -a -s -h -r ” ＋ 完整路径, 假, #隐藏窗口)  ' 去除隐藏属性<br />     删除文件 (盘符 ＋ “\Autorun.inf”)<br />     删除文件 (盘符 ＋ “\*.vbs”)<br />     删除文件 (盘符 ＋ “\*.lnk”)<br />     处理U盘文件 (完整路径)  ' 递归调用<br />     ' 文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> .子程序 是否目录, 逻辑型<br /> .参数 路径, 文本型<br /> <br /> 返回 (取文件属性 (路径) ％ 16 ＝ 0)  ' 通过取余判断目录属性<br /> <br /> .子程序 取所有驱动器, 文本型<br /> .局部变量 drives, 文本型<br /> <br /> drives ＝ 取空白文本 (260)<br /> GetLogicalDriveStringsA (260, drives)<br /> 返回 (drives)

完整代码 帮忙看看哪里出错了

aipca

才发现 这个好像是在我之前的那个基础上改的 我重新按你的要求改了一下，本地测试没啥问题。

  

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

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

清除数组 (U盘列表)
U盘列表 ＝ 取驱动器列表 (3)
如果真 (取数组成员数 (U盘列表) ＝ 0)
信息框 (“未检测到U盘！”, 0, , )
返回 ()

计次循环首 (取数组成员数 (U盘列表), i)
处理U盘文件 (U盘列表 [i])
计次循环尾 ()
信息框 (“操作完成！”, 0, , )

子程序名	返回值类型	公开	备 注
处理U盘文件
参数名	类 型	参考	可空	数组	备 注
盘符	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型
完整路径	文本型
属性	整数型

文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件 )
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
完整路径 ＝ 盘符 ＋ “\” ＋ 文件名
运行 (“attrib -a -s -h -r ” ＋ 完整路径, 假, )
如果真 (是否目录 (完整路径))
处理U盘文件 (完整路径)

文件名 ＝ 寻找文件 (, )
判断循环尾 ()
删除文件 (盘符 ＋ “\Autorun.inf”)
删除文件 (盘符 ＋ “\*.vbs”)
删除文件 (盘符 ＋ “\*.lnk”)

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> <br /> 清除数组 (U盘列表)<br /> U盘列表 ＝ 取驱动器列表 (3)<br /> .如果真 (取数组成员数 (U盘列表) ＝ 0)<br />     信息框 (“未检测到U盘！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (U盘列表), i)<br />     处理U盘文件 (U盘列表 <i>)<br /> .计次循环尾 ()<br /> <br /> 信息框 (“操作完成！”, 0, , )<br /> <br /> <br /> <br /> .子程序 处理U盘文件<br /> .参数 盘符, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 属性, 整数型<br /> <br /> 文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件)<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />         完整路径 ＝ 盘符 ＋ “\” ＋ 文件名<br />         运行 (“attrib -a -s -h -r ” ＋ 完整路径, 假, )<br />         .如果真 (是否目录 (完整路径))<br />             处理U盘文件 (完整路径)<br />         .如果真结束<br /> <br />     .如果真结束<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> 删除文件 (盘符 ＋ “\Autorun.inf”)<br /> 删除文件 (盘符 ＋ “\*.vbs”)<br /> 删除文件 (盘符 ＋ “\*.lnk”)

丰晨软件

aipca 发表于 2025-2-25 16:46
才发现 这个好像是在我之前的那个基础上改的 我重新按你的要求改了一下，本地测试没啥问题。

[e=1].版本 2 ...

aipca

丰晨软件 发表于 2025-2-25 17:00

我没测试删除，好像删除失败了 删除的路径不对

aipca

用了精易模块。

  

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

变量名	类 型	静态	数组	备 注
i	整数型
VBS	文本型		0
ii	整数型
LNK	文本型		0
iii	整数型
ATUO	文本型		0
iiii	整数型

清除数组 (U盘列表)
U盘列表 ＝ 取驱动器列表 (3)
列表框1.清空 ()
如果真 (取数组成员数 (U盘列表) ＝ 0)
信息框 (“未检测到U盘！”, 0, , )
返回 ()

计次循环首 (取数组成员数 (U盘列表), i)
处理U盘文件 (U盘列表 [i])
文件_枚举 (U盘列表 [i], “*.vbs”, VBS, 真, , )
如果真 (取数组成员数 (VBS) ＞ 0)
计次循环首 (取数组成员数 (VBS), ii)
删除文件 (VBS [ii])
计次循环尾 ()

文件_枚举 (U盘列表 [i], “*.lnk”, LNK, 真, , )
如果真 (取数组成员数 (LNK) ＞ 0)
计次循环首 (取数组成员数 (LNK), iii)
删除文件 (LNK [iii])
计次循环尾 ()

文件_枚举 (U盘列表 [i], “Autorun.inf”, ATUO, 真, , )
如果真 (取数组成员数 (ATUO) ＞ 0)
计次循环首 (取数组成员数 (ATUO), iiii)
删除文件 (ATUO [iiii])
计次循环尾 ()

计次循环尾 ()
信息框 (“操作完成！”, 0, , )

子程序名	返回值类型	公开	备 注
处理U盘文件
参数名	类 型	参考	可空	数组	备 注
盘符	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型
完整路径	文本型
属性	整数型

文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件 )
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
完整路径 ＝ 盘符 ＋ “\” ＋ 文件名
运行 (“attrib -a -s -h -r ” ＋ 完整路径, 假, )
如果真 (是否目录 (完整路径))
处理U盘文件 (完整路径)

文件名 ＝ 寻找文件 (, )
判断循环尾 ()

i支持库列表	支持库注释
eAPI	应用接口支持库

.版本 2<br /> .支持库 eAPI<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 i, 整数型<br /> .局部变量 VBS, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 LNK, 文本型, , "0"<br /> .局部变量 iii, 整数型<br /> .局部变量 ATUO, 文本型, , "0"<br /> .局部变量 iiii, 整数型<br /> <br /> 清除数组 (U盘列表)<br /> U盘列表 ＝ 取驱动器列表 (3)<br /> 列表框1.清空 ()<br /> .如果真 (取数组成员数 (U盘列表) ＝ 0)<br />     信息框 (“未检测到U盘！”, 0, , )<br />     返回 ()<br /> .如果真结束<br /> <br /> .计次循环首 (取数组成员数 (U盘列表), i)<br />     处理U盘文件 (U盘列表 <i>)<br /> <br />     文件_枚举 (U盘列表 <i>, “*.vbs”, VBS, 真, , )<br />     .如果真 (取数组成员数 (VBS) ＞ 0)<br />         .计次循环首 (取数组成员数 (VBS), ii)<br />             删除文件 (VBS [ii])<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br />     文件_枚举 (U盘列表 <i>, “*.lnk”, LNK, 真, , )<br />     .如果真 (取数组成员数 (LNK) ＞ 0)<br />         .计次循环首 (取数组成员数 (LNK), iii)<br />             删除文件 (LNK [iii])<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br />     文件_枚举 (U盘列表 <i>, “Autorun.inf”, ATUO, 真, , )<br />     .如果真 (取数组成员数 (ATUO) ＞ 0)<br />         .计次循环首 (取数组成员数 (ATUO), iiii)<br />             删除文件 (ATUO [iiii])<br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 信息框 (“操作完成！”, 0, , )<br /> <br /> .子程序 处理U盘文件<br /> .参数 盘符, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 属性, 整数型<br /> <br /> 文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件)<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />         完整路径 ＝ 盘符 ＋ “\” ＋ 文件名<br />         运行 (“attrib -a -s -h -r ” ＋ 完整路径, 假, )<br />         .如果真 (是否目录 (完整路径))<br />             处理U盘文件 (完整路径)<br />         .如果真结束<br /> <br />     .如果真结束<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()

aipca

补个图 下班

八道铁爸

改用 CMD    “ dle *.vbs”        我是用这方式  使用可行的

丰晨软件

aipca 发表于 2025-2-25 17:26
补个图 下班

1、还是每次只恢复一个文件夹，但是文件确实可以删除了。2、添加这项会提示 错误(10041): 调用子程序“是否目录”时传递了过多的参数。

  

子程序名	返回值类型	公开	备 注
处理U盘文件
参数名	类 型	参考	可空	数组	备 注
盘符	文本型

变量名	类 型	静态	数组	备 注
文件名	文本型
完整路径	文本型
属性	整数型

文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件 )
判断循环首 (文件名 ≠ “”)
如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)
完整路径 ＝ 盘符 ＋ “\” ＋ 文件名
运行 (“attrib -a -s -h -r ” ＋ 完整路径, 假, )
如果真 (是否目录 (完整路径))
处理U盘文件 (完整路径)

文件名 ＝ 寻找文件 (, )
判断循环尾 ()

子程序名	返回值类型	公开	备 注
是否目录	逻辑型

变量名	类 型	静态	数组	备 注
路径	文本型

返回 (取文件属性 (路径) ％ 16 ＝ 0)  ' 通过取余判断目录属性

.版本 2<br /> <br /> .子程序 处理U盘文件<br /> .参数 盘符, 文本型<br /> .局部变量 文件名, 文本型<br /> .局部变量 完整路径, 文本型<br /> .局部变量 属性, 整数型<br /> <br /> 文件名 ＝ 寻找文件 (盘符 ＋ “\*.*”, #隐藏文件)<br /> .判断循环首 (文件名 ≠ “”)<br />     .如果真 (文件名 ≠ “.” 且 文件名 ≠ “..”)<br />         完整路径 ＝ 盘符 ＋ “\” ＋ 文件名<br />         运行 (“attrib -a -s -h -r ” ＋ 完整路径, 假, )<br />         .如果真 (是否目录 (完整路径))<br />             处理U盘文件 (完整路径)<br />         .如果真结束<br /> <br />     .如果真结束<br />     文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> .子程序 是否目录, 逻辑型<br /> .局部变量 路径, 文本型<br /> <br /> 返回 (取文件属性 (路径) ％ 16 ＝ 0)  ' 通过取余判断目录属性

lxboys

.版本 2

.子程序 处理U盘文件
.参数 盘符, 文本型
.局部变量 文件数组, 文本型, , "0"
.局部变量 x

' 盘符格式为   c:\
文件_枚举 (盘符, “*.*”, 文件数组, 真, , 真)
.计次循环首 (取数组成员数 (文件数组), x)
    运行 (“attrib -a -s -h -r ” ＋ 文件数组 [x], 假, )
    删除文件 (盘符 ＋ “Autorun.inf”)
    删除文件 (盘符 ＋ “*.vbs”)
    删除文件 (盘符 ＋ “*.lnk”)
.计次循环尾 ()
用这个吧

丰晨软件

lxboys 发表于 2025-2-26 12:05
.版本 2

.子程序 处理U盘文件

使用这段代码，弹出N多的控制台窗口，没有把优盘恢复。