文件移动

cqcc

  

文件_移动 (编辑框_枚举目录.内容 ＋ 文件名数组 [i], 编辑框_目标文件夹.内容 ＋ 文件名数组 [i])

文件_移动 (编辑框_枚举目录.内容 ＋ 文件名数组 <i>, 编辑框_目标文件夹.内容 ＋ 文件名数组 <i>)

用以上代码不支持移动子目录里面的文件


补充内容 (2024-5-6 19:01):
.版本 2

.子程序 _按钮1_被单击
.局部变量 文件名数组, 文本型, , "0"
.局部变量 i, 整数型

文件_枚举 (编辑框_枚举目录.内容, 编辑框_文件后缀.内容, 文件名数组, 假, , 真)

.计次循环首 (取数组成员数 (文件名数组), i)
    .如果真 (目录_是否存在 (编辑框_目标文件夹.内容) ＝ 假)
        目录_创建 (编辑框_目标文件夹.内容)
    .如果真结束
    .判断开始 (文件_移动 (编辑框_枚举目录.内容 ＋ 文件名数组 , 编辑框_目标文件夹.内容 ＋ 文件名数组 ) ＝ 真)
        标签4.标题 ＝ “移动第” ＋ 到文本 (i) ＋ “个文件  ” ＋ #换行符 ＋ 编辑框_目标文件夹.内容 ＋ 文件名数组 ＋ “ 成功”
    .默认
        标签4.标题 ＝ “移动第” ＋ 到文本 (i) ＋ “个文件  ” ＋ #换行符 ＋ 编辑框_目标文件夹.内容 ＋ 文件名数组 ＋ “  失败”
    .判断结束

.计次循环尾 ()

风度猫

风度猫 发表于 2024-5-6 20:56

  

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

[/quote]
[e=0].版本 2

变量名	类 型	静态	数组	备 注
文件名数组	文本型		0
i	整数型
局_文件名	文本型

文件_枚举 (编辑框_枚举目录.内容, “*.txt”, 文件名数组, 真, , 真)
计次循环首 (取数组成员数 (文件名数组), i)
局_文件名 ＝ 文本_取右边 (文件名数组 [i], “\”)
文件_移动 (文件名数组 [i], 编辑框_目标文件夹.内容 ＋ 局_文件名)
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 文件名数组, 文本型, , "0"</blockquote></div><br /> [e=0].版本 2<br /> <br /> .局部变量 文件名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_文件名, 文本型<br /> <br /> 文件_枚举 (编辑框_枚举目录.内容, “*.txt”, 文件名数组, 真, , 真)<br /> <br /> .计次循环首 (取数组成员数 (文件名数组), i)<br />     局_文件名 ＝ 文本_取右边 (文件名数组 <i>, “\”)<br />     文件_移动 (文件名数组 <i>, 编辑框_目标文件夹.内容 ＋ 局_文件名)<br /> .计次循环尾 ()

风度猫

输出出来 前后路径 看看是不是 目录和文件之间没加 \

风度猫

风度猫 发表于 2024-5-6 19:01
输出出来 前后路径 看看是不是 目录和文件之间没加 \

那证明你文件名 枚举 没枚举子目录的文件呗

风度猫

  

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

变量名	类 型	静态	数组	备 注
文件名数组	文本型		0
i	整数型
局_目录	文本型
局_文件名	文本型

文件_枚举 (编辑框_枚举目录.内容, 编辑框_文件后缀.内容, 文件名数组, 真, , 真)
计次循环首 (取数组成员数 (文件名数组), i)
局_目录 ＝ 文件_取目录 (文件名数组 [i])
局_文件名 ＝ 文本_取右边 (文件名数组 [i], “\”)
如果 (局_目录=编辑框_枚举目录.内容)
文件_移动 (编辑框_枚举目录.内容 ＋ 局_文件名 , 编辑框_目标文件夹.内容 ＋ 局_文件名)
文件_移动 (编辑框_枚举目录.内容 ＋ 局_文件名 ,编辑框_目标文件夹.内容+文本_取右边 (局_目录,编辑框_枚举目录.内容) ＋ 局_文件名 )

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击<br /> .局部变量 文件名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_目录, 文本型<br /> .局部变量 局_文件名, 文本型<br /> <br /> 文件_枚举 (编辑框_枚举目录.内容, 编辑框_文件后缀.内容, 文件名数组, 真, , 真)<br /> <br /> .计次循环首 (取数组成员数 (文件名数组), i)<br />     局_目录 ＝ 文件_取目录 (文件名数组 <i>)<br />     局_文件名 ＝ 文本_取右边 (文件名数组 <i>, “\”)<br />     .如果 (局_目录=编辑框_枚举目录.内容)<br />         文件_移动 (编辑框_枚举目录.内容 ＋ 局_文件名 , 编辑框_目标文件夹.内容 ＋ 局_文件名)<br />     .否则<br />         文件_移动 (编辑框_枚举目录.内容 ＋ 局_文件名 ,编辑框_目标文件夹.内容+文本_取右边(局_目录,编辑框_枚举目录.内容) ＋ 局_文件名 )<br />     .如果结束<br /> <br /> .计次循环尾 ()

试下对不
另外 你整个目录移动 为何不用 目录_移动文件_cmd ()

cqcc

lizi.e (973.78 KB, 下载次数: 0)

2024-5-6 20:39 上传

点击文件名下载附件

你试试

风度猫

风度猫 发表于 2024-5-6 20:03

  

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

[/quote]
[e=0].版本 2

变量名	类 型	静态	数组	备 注
文件名数组	文本型		0
i	整数型
局_目录	文本型
局_文件名	文本型

文件_枚举 (编辑框_枚举目录.内容, “*.bmp”, 文件名数组, 真, , 真)
计次循环首 (取数组成员数 (文件名数组), i)
局_目录 ＝ 文件_取目录 (文件名数组 [i])
局_文件名 ＝ 文本_取右边 (文件名数组 [i], “\”)
如果 (局_目录 ＝ 编辑框_枚举目录.内容)
文件_移动 (文件名数组 [i], 编辑框_目标文件夹.内容 ＋ 局_文件名)
如果真 (目录_是否存在 (编辑框_目标文件夹.内容 ＋ 文本_取右边 (局_目录, 编辑框_枚举目录.内容)) ＝ 假)
目录_创建 (编辑框_目标文件夹.内容 ＋ 文本_取右边 (局_目录, 编辑框_枚举目录.内容))
文件_移动 (文件名数组 [i], 编辑框_目标文件夹.内容 ＋ 文本_取右边 (局_目录, 编辑框_枚举目录.内容) ＋ 局_文件名)

计次循环尾 ()

.版本 2<br /> <br /> .子程序 _按钮1_被单击</blockquote></div><br /> [e=0].版本 2<br /> <br /> .局部变量 文件名数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 局_目录, 文本型<br /> .局部变量 局_文件名, 文本型<br /> <br /> 文件_枚举 (编辑框_枚举目录.内容, “*.bmp”, 文件名数组, 真, , 真)<br /> <br /> .计次循环首 (取数组成员数 (文件名数组), i)<br />     局_目录 ＝ 文件_取目录 (文件名数组 <i>)<br />     局_文件名 ＝ 文本_取右边 (文件名数组 <i>, “\”)<br />     .如果 (局_目录 ＝ 编辑框_枚举目录.内容)<br />         文件_移动 (文件名数组 <i>, 编辑框_目标文件夹.内容 ＋ 局_文件名)<br />     .否则<br />         .如果真 (目录_是否存在 (编辑框_目标文件夹.内容 ＋ 文本_取右边 (局_目录, 编辑框_枚举目录.内容)) ＝ 假)<br />             目录_创建 (编辑框_目标文件夹.内容 ＋ 文本_取右边 (局_目录, 编辑框_枚举目录.内容))<br />         .如果真结束<br />         文件_移动 (文件名数组 <i>, 编辑框_目标文件夹.内容 ＋ 文本_取右边 (局_目录, 编辑框_枚举目录.内容) ＋ 局_文件名)<br />     .如果结束<br /> <br /> .计次循环尾 ()

风度猫

风度猫 发表于 2024-5-6 21:09
[e=0].版本 2

.局部变量 文件名数组, 文本型, , "0"

肯定啊  路径不包含,,,你子目录的路径 中间不就少了一节...你把前后都调试输出 出来对比下自己就明白了