怎么把文件夹里面的mp4分配到很多个子文件夹

彬彬520

怎么把文件夹里面的mp4分配到很多个子文件夹

chaochaochao

文件_复制()

花间一壶酒

文件_移动（）

彬彬520

chaochaochao 发表于 2025-8-17 02:04
文件_复制()

可以写个例子吗，就是把主文件夹里面100个视频分配到50个子文件夹，随机

茶白

  

子程序名	返回值类型	公开	备 注
随机分配视频文件

变量名	类 型	静态	数组	备 注
主文件夹路径	文本型
子文件夹前缀	文本型
文件数组	文本型		0
文件数量	整数型
子文件夹数量	整数型
每个文件夹文件数	整数型
i	整数型
j	整数型
目标文件夹	文本型
随机索引	整数型
临时文件数组	文本型		0

' 设置路径参数
主文件夹路径 ＝ "C:\视频主文件夹\"  ' 修改为实际路径
子文件夹前缀 ＝ "子文件夹_"         ' 子文件夹名前缀
' 枚举主文件夹中的所有视频文件
文件_枚举 (主文件夹路径 ＋ "*.mp4", 文件数组, , 真)  ' 可根据实际视频格式修改
文件数量 ＝ 取数组成员数 (文件数组)
' 检查文件数量
如果真 (文件数量 ＜ 100)
调试输出 ("错误：主文件夹中视频文件不足100个！")
返回 ()

' 初始化参数
子文件夹数量 ＝ 50
每个文件夹文件数 ＝ 2  ' 100 ÷ 50 = 2
' 创建50个子文件夹
计次循环首 (子文件夹数量, i)
目标文件夹 ＝ 主文件夹路径 ＋ 子文件夹前缀 ＋ 到文本 (i) ＋ "\"
目录_创建 (目标文件夹)
计次循环尾 ()
' 随机打乱文件数组顺序
置随机数种子 ()
临时文件数组 ＝ 文件数组  ' 复制数组
清除数组 (文件数组)
变量循环首 (文件数量, 1, -1, i)
随机索引 ＝ 取随机数 (1, 取数组成员数 (临时文件数组))
加入成员 (文件数组, 临时文件数组 [随机索引])
删除成员 (临时文件数组, 随机索引, 1)
变量循环尾 ()
' 分配文件到子文件夹
计次循环首 (子文件夹数量, i)
目标文件夹 ＝ 主文件夹路径 ＋ 子文件夹前缀 ＋ 到文本 (i) ＋ "\"

计次循环首 (每个文件夹文件数, j)
变量循环首 ( (i － 1) × 每个文件夹文件数 ＋ j, (i － 1) × 每个文件夹文件数 ＋ j, 1, )
文件_移动 (文件数组 [i], 目标文件夹 ＋ 文件_取文件名 (文件数组 [i], 真))
变量循环尾 ()
计次循环尾 ()
计次循环尾 ()
调试输出 ("文件分配完成！")

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

.版本 2<br /> .支持库 spec<br /> <br /> .子程序 随机分配视频文件<br /> .局部变量 主文件夹路径, 文本型<br /> .局部变量 子文件夹前缀, 文本型<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 文件数量, 整数型<br /> .局部变量 子文件夹数量, 整数型<br /> .局部变量 每个文件夹文件数, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 j, 整数型<br /> .局部变量 目标文件夹, 文本型<br /> .局部变量 随机索引, 整数型<br /> .局部变量 临时文件数组, 文本型, , "0"<br /> <br /> ' 设置路径参数<br /> 主文件夹路径 ＝ "C:\视频主文件夹\"  ' 修改为实际路径<br /> 子文件夹前缀 ＝ "子文件夹_"         ' 子文件夹名前缀<br /> <br /> ' 枚举主文件夹中的所有视频文件<br /> 文件_枚举 (主文件夹路径 ＋ "*.mp4", 文件数组, , 真)  ' 可根据实际视频格式修改<br /> 文件数量 ＝ 取数组成员数 (文件数组)<br /> <br /> ' 检查文件数量<br /> .如果真 (文件数量 ＜ 100)<br />     调试输出 ("错误：主文件夹中视频文件不足100个！")<br />     返回 ()<br /> .如果真结束<br /> <br /> ' 初始化参数<br /> 子文件夹数量 ＝ 50<br /> 每个文件夹文件数 ＝ 2  ' 100 ÷ 50 = 2<br /> <br /> ' 创建50个子文件夹<br /> .计次循环首 (子文件夹数量, i)<br />     目标文件夹 ＝ 主文件夹路径 ＋ 子文件夹前缀 ＋ 到文本 (i) ＋ "\"<br />     目录_创建 (目标文件夹)<br /> .计次循环尾 ()<br /> <br /> ' 随机打乱文件数组顺序<br /> 置随机数种子 ()<br /> 临时文件数组 ＝ 文件数组  ' 复制数组<br /> 清除数组 (文件数组)<br /> <br /> .变量循环首 (文件数量, 1, -1, i)<br />     随机索引 ＝ 取随机数 (1, 取数组成员数 (临时文件数组))<br />     加入成员 (文件数组, 临时文件数组 [随机索引])<br />     删除成员 (临时文件数组, 随机索引, 1)<br /> .变量循环尾 ()<br /> <br /> ' 分配文件到子文件夹<br /> .计次循环首 (子文件夹数量, i)<br />     目标文件夹 ＝ 主文件夹路径 ＋ 子文件夹前缀 ＋ 到文本 (i) ＋ "\"<br />     <br />     .计次循环首 (每个文件夹文件数, j)<br />         .变量循环首 ((i － 1) × 每个文件夹文件数 ＋ j, (i － 1) × 每个文件夹文件数 ＋ j, 1, )<br />             文件_移动 (文件数组 <i>, 目标文件夹 ＋ 文件_取文件名 (文件数组 <i>, 真))<br />         .变量循环尾 ()<br />     .计次循环尾 ()<br /> .计次循环尾 ()<br /> <br /> 调试输出 ("文件分配完成！")