求助：按文件大小进行分类

danshiyuan

    a文件夹内有若干大小不同的 TXT 文件，计划讲5M以下的，移动到b文件夹;
  将5~10M的移动到C文件夹；
  10M以上的不动。
折磨了一晚也没弄出来，求大佬帮忙写下代码，不盛感激

yushizhuo

1111111111111楼主请检阅

补充内容 (2025-5-3 02:19):
文件枚举那里改为 *.txt
文件_枚举 (filea, “*.txt”, file_name_arr, 假, 真, 假)

1078848263

谢谢分享

fengyewl

取文件大小啊 判断

dphpzmd

666666666666

danshiyuan

yushizhuo 发表于 2025-5-3 02:18
1111111111111楼主请检阅

补充内容 (2025-5-3 02:19):

谢谢你，我运行完移动不了，只能枚举到文件
文件目录这样写可以么？ a,b,c是文件夹
filea ＝ “D:\移动测试\a”
fileb ＝ “D:\移动测试\b”
filec ＝ “D:\移动测试\c”


补充内容 (2025-5-3 15:46):
* Windows 10
* 数组:3{“0311-2r (2).txt”,“0311-2r.txt”,“0311.txt”}
* 13202346
* 6616276
* 3304473
被调试易程序运行完毕

补充内容 (2025-5-3 16:11):
非常感谢，我知道问题在哪里了

aipca

  

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

变量名	类 型	静态	数组	备 注
路径A	文本型
路径B	文本型
路径C	文本型
所有文件	文本型		0
i	整数型

路径A ＝ 取运行目录 () ＋ “\A\”
路径B ＝ 取运行目录 () ＋ “\B\”
路径C ＝ 取运行目录 () ＋ “\C\”
文件_枚举 (路径A, “*.txt”, 所有文件, 真, 假, 假)
计次循环首 (取数组成员数 (所有文件), i)
判断 (文件_取大小 (所有文件 [i]) ＜ 5 × 1024 × 1024)
文件_移动 (所有文件 [i], 路径B ＋ 文件_取文件名 (所有文件 [i], 真))
判断 (文件_取大小 (所有文件 [i]) ≥ 5 × 1024 × 1024 且 文件_取大小 (所有文件 [i]) ＜ 10 × 1024 × 1024)
文件_移动 (所有文件 [i], 路径C ＋ 文件_取文件名 (所有文件 [i], 真))



计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 路径A, 文本型<br /> .局部变量 路径B, 文本型<br /> .局部变量 路径C, 文本型<br /> .局部变量 所有文件, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> <br /> 路径A ＝ 取运行目录 () ＋ “\A\”<br /> 路径B ＝ 取运行目录 () ＋ “\B\”<br /> 路径C ＝ 取运行目录 () ＋ “\C\”<br /> 文件_枚举 (路径A, “*.txt”, 所有文件, 真, 假, 假)<br /> .计次循环首 (取数组成员数 (所有文件), i)<br />     .判断开始 (文件_取大小 (所有文件 <i>) ＜ 5 × 1024 × 1024)<br />         文件_移动 (所有文件 <i>, 路径B ＋ 文件_取文件名 (所有文件 <i>, 真))<br />     .判断 (文件_取大小 (所有文件 <i>) ≥ 5 × 1024 × 1024 且 文件_取大小 (所有文件 <i>) ＜ 10 × 1024 × 1024)<br />         文件_移动 (所有文件 <i>, 路径C ＋ 文件_取文件名 (所有文件 <i>, 真))<br />     .默认<br /> <br />     .判断结束<br /> <br /> .计次循环尾 ()

yushizhuo

danshiyuan 发表于 2025-5-3 15:18
谢谢你，我运行完移动不了，只能枚举到文件
文件目录这样写可以么？ a,b,c是文件夹
filea ＝ “D:\移动测 ...

采纳一下谢谢