易语言文件夹搜寻问题

小白龙来学习

目录下 有一个文件夹，点进去 找到里面的比如大小固定是500字节的(文件名字会随机变化,但是大小不会)，然后在500字节的文件夹里有一个而且也是唯一一个文件夹里是空的,我想复制个东西进去 ，每次这样手动操作太麻烦了，有没有大佬能帮忙做个源码，图片资源我到时候上传替换下就行，感激不尽

aipca

  

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

变量名	类 型	静态	数组	备 注
三级目录	文本型		0
i	整数型
空文件夹所在	文本型		0
ii	整数型
需复制的文件路径	文本型
一级目录	文本型
二级目录	文本型		0

一级目录 ＝ 取运行目录 () ＋ “\初级文件夹名”  ' 这里要改成你的文件夹路径
需复制的文件路径 ＝ “D:\你要复制的文件\11.jpg”
目录_枚举子目录 (一级目录, 二级目录, 真, )  ' 二级目录是你说的那个随机，只有唯一的文件夹
判断 (二级目录 [1] ≠ “”)
目录_枚举子目录 (二级目录 [1], 三级目录, 真, )
判断 (二级目录 [1] ＝ “”)
信息框 (“二级目录不存在！”, 0, , )



计次循环首 (取数组成员数 (三级目录), i)
如果真 (目录_取大小 (三级目录 [i]) ＝ 500)
目录_枚举子目录 (三级目录 [i], 空文件夹所在, 真, )
计次循环首 (取数组成员数 (空文件夹所在), ii)
如果真 (目录_是否为空 (空文件夹所在 [ii]) ＝ 真)
' 文件_复制 (需复制的文件路径, 空文件夹所在 [ii] ＋ 文件_取文件名 (需复制的文件路径, 真))
写到文件 (空文件夹所在 [ii] ＋ 文件_取文件名 (需复制的文件路径, 真), #图片1 )

计次循环尾 ()

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 三级目录, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 空文件夹所在, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 需复制的文件路径, 文本型<br /> .局部变量 一级目录, 文本型<br /> .局部变量 二级目录, 文本型, , "0"<br /> <br /> 一级目录 ＝ 取运行目录 () ＋ “\初级文件夹名”  ' 这里要改成你的文件夹路径<br /> 需复制的文件路径 ＝ “D:\你要复制的文件\11.jpg”<br /> 目录_枚举子目录 (一级目录, 二级目录, 真, )  ' 二级目录是你说的那个随机，只有唯一的文件夹<br /> .判断开始 (二级目录 [1] ≠ “”)<br />     目录_枚举子目录 (二级目录 [1], 三级目录, 真, )<br /> .判断 (二级目录 [1] ＝ “”)<br />     信息框 (“二级目录不存在！”, 0, , )<br /> .默认<br /> <br /> .判断结束<br /> <br /> .计次循环首 (取数组成员数 (三级目录), i)<br />     .如果真 (目录_取大小 (三级目录 <i>) ＝ 500)<br />         目录_枚举子目录 (三级目录 <i>, 空文件夹所在, 真, )<br />         .计次循环首 (取数组成员数 (空文件夹所在), ii)<br />             .如果真 (目录_是否为空 (空文件夹所在 [ii]) ＝ 真)<br />                 ' 文件_复制 (需复制的文件路径, 空文件夹所在 [ii] ＋ 文件_取文件名 (需复制的文件路径, 真))<br />                 写到文件 (空文件夹所在 [ii] ＋ 文件_取文件名 (需复制的文件路径, 真), #图片1)<br /> <br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

Ruang

不是很明白你说的

补充内容 (2025-4-21 21:10):
查找目录下的指定大小的文件夹？

小白龙来学习

Ruang 发表于 2025-4-21 21:09
不是很明白你说的

补充内容 (2025-4-21 21:10):

就是目录下有一个文件夹  我点击他，然后找到里面文件夹大小是500字节的 在双击他，里面有一个文件夹是0字节的，在双击他，然后复制个东西进去 就这样....

菜鸟路过

枚举文件目录，获取文件大小判断，在枚举子目录，找到空目录的 就是了。不过你这个就一点不靠谱了

aipca

大概这么个意思，自行测试一下。

  

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

变量名	类 型	静态	数组	备 注
cha询目录	文本型		0
i	整数型
空文件夹所在	文本型		0
ii	整数型
需复制的文件路径	文本型

目录_枚举子目录 (取运行目录 (), cha询目录, 真, )
需复制的文件路径 ＝ “D:\你要复制的文件\11.jpg”
计次循环首 (取数组成员数 (cha询目录), i)
如果真 (目录_取大小 (cha询目录 [i]) ＝ 500)
目录_枚举子目录 (cha询目录 [i], 空文件夹所在, 真, )
计次循环首 (取数组成员数 (空文件夹所在), ii)
如果真 (目录_是否为空 (空文件夹所在 [ii]) ＝ 真)
文件_复制 (需复制的文件路径, 空文件夹所在 [ii] ＋ 文件_取文件名 (需复制的文件路径, 真))

计次循环尾 ()

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 cha询目录, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 空文件夹所在, 文本型, , "0"<br /> .局部变量 ii, 整数型<br /> .局部变量 需复制的文件路径, 文本型<br /> <br /> 目录_枚举子目录 (取运行目录 (), cha询目录, 真, )<br /> 需复制的文件路径 ＝ “D:\你要复制的文件\11.jpg”<br /> <br /> .计次循环首 (取数组成员数 (cha询目录), i)<br />     .如果真 (目录_取大小 (cha询目录 <i>) ＝ 500)<br />         目录_枚举子目录 (cha询目录 <i>, 空文件夹所在, 真, )<br />         .计次循环首 (取数组成员数 (空文件夹所在), ii)<br />             .如果真 (目录_是否为空 (空文件夹所在 [ii]) ＝ 真)<br />                 文件_复制 (需复制的文件路径, 空文件夹所在 [ii] ＋ 文件_取文件名 (需复制的文件路径, 真))<br />             .如果真结束<br /> <br />         .计次循环尾 ()<br />     .如果真结束<br /> <br /> .计次循环尾 ()

小白龙来学习

aipca 发表于 2025-4-21 21:17
大概这么个意思，自行测试一下。
[e=1].版本 2

如果真 (目录_取大小 (cha询目录 <i>) ＝ 500)    错误(8): 右括号处于错误位置。
编译现行易程序失败或被中止!

aipca

小白龙来学习 发表于 2025-4-21 21:22
如果真 (目录_取大小 (cha询目录 ) ＝ 500)    错误(8): 右括号处于错误位置。
编译现行易程序失败或被中 ...

复制的时候[]被复制成了<> 改成 即可

小白龙来学习

aipca 发表于 2025-4-21 21:28
复制的时候[]被复制成了 改成 即可

大佬最后问一句  文件_复制 (需复制的文件路径, 空文件夹所在 [ii] ＋ 文件_取文件名 (需复制的文件路径, 真))   这句你不能改成 写到文件 (, #图片1)
因为图片1我把文件放到这里了 但是他提示  错误(10048): “写到文件”库命令的参数“文件名”不能接受空数据。  这种能帮忙改一下吗。。。。感激不尽

Ruang

小白龙来学习 发表于 2025-4-21 21:32
大佬最后问一句  文件_复制 (需复制的文件路径, 空文件夹所在  ＋ 文件_取文件名 (需复制的文件路径, 真) ...

可以的