求大神 文件夹取文件问题--在线等

有梦就追

上一个问题意思都表达错了，从新发一个贴，
怎么样从AB 两个文件夹中各自随机取出一个视频，放到c文件夹
然后从AB取出的视频文件自动删除，每次c文件夹里面2个视频文件，再下一次取文件的时候被自动替换掉，c文件夹一直保留2个视频文件就可以，谢谢！

eyyhs

  

子程序名	返回值类型	公开	备 注
子程序1

变量名	类 型	静态	数组	备 注
i	整数型
A文件夹	文本型
B文件夹	文本型
C文件夹	文本型			.
文件名数组A	文本型		0
文件名数组B	文本型		0
文件A	字节集
文件B	字节集
文件名A	文本型
文件名B	文本型

置随机数种子 ()
A文件夹 ＝ “C:\A”
B文件夹 ＝ “C:\B”
C文件夹 ＝ “C:\C”
目录_强力清空 (C文件夹)
文件_枚举 (A文件夹, “*.MP4”, 文件名数组A, 假, , )
文件_枚举 (B文件夹, “*.MP4”, 文件名数组B, 假, , )
文件名A ＝ 文件名数组A [取随机数 (0, 取数组成员数 (文件名数组A))]
文件名B ＝ 文件名数组B [取随机数 (0, 取数组成员数 (文件名数组B))]
文件A ＝ 读入文件 (A文件夹 ＋ “\” ＋ 文件名A)
文件B ＝ 读入文件 (B文件夹 ＋ “\” ＋ 文件名B)
如果真 (写到文件 (C文件夹 ＋ “\” ＋ 文件名A, 文件A))
文件_删除 (A文件夹 ＋ “\” ＋ 文件名A)
如果真 (写到文件 (C文件夹 ＋ “\” ＋ 文件名B, 文件B))
文件_删除 (B文件夹 ＋ “\” ＋ 文件名A)

.版本 2<br /> <br /> .子程序 子程序1<br /> .局部变量 i, 整数型<br /> .局部变量 A文件夹, 文本型<br /> .局部变量 B文件夹, 文本型<br /> .局部变量 C文件夹, 文本型, , , .<br /> .局部变量 文件名数组A, 文本型, , "0"<br /> .局部变量 文件名数组B, 文本型, , "0"<br /> .局部变量 文件A, 字节集<br /> .局部变量 文件B, 字节集<br /> .局部变量 文件名A, 文本型<br /> .局部变量 文件名B, 文本型<br /> <br /> 置随机数种子 ()<br /> A文件夹 ＝ “C:\A”<br /> B文件夹 ＝ “C:\B”<br /> C文件夹 ＝ “C:\C”<br /> 目录_强力清空 (C文件夹)<br /> 文件_枚举 (A文件夹, “*.MP4”, 文件名数组A, 假, , )<br /> 文件_枚举 (B文件夹, “*.MP4”, 文件名数组B, 假, , )<br /> <br /> 文件名A ＝ 文件名数组A [取随机数 (0, 取数组成员数 (文件名数组A))]<br /> 文件名B ＝ 文件名数组B [取随机数 (0, 取数组成员数 (文件名数组B))]<br /> <br /> 文件A ＝ 读入文件 (A文件夹 ＋ “\” ＋ 文件名A)<br /> 文件B ＝ 读入文件 (B文件夹 ＋ “\” ＋ 文件名B)<br /> <br /> .如果真 (写到文件 (C文件夹 ＋ “\” ＋ 文件名A, 文件A))<br />     文件_删除 (A文件夹 ＋ “\” ＋ 文件名A)<br /> .如果真结束<br /> .如果真 (写到文件 (C文件夹 ＋ “\” ＋ 文件名B, 文件B))<br />     文件_删除 (B文件夹 ＋ “\” ＋ 文件名A)

补充内容 (2022-11-3 11:51):
随机数最小为1吧，搞错了 自己改改就行！

陽陽陽

文件——枚举（路径A）
然后
置随机数种子（）

文件名A=枚举出来的文件[取随机数（1，取数组成员数（枚举出来的文件））]

写到文件（目录C，读入文件（文件名A））
删除文件（文件名A）

路径B 是同样的道理

补充内容 (2022-11-3 11:46):
精益模块的命令