关于移动文件夹

小旭旭 · 发表于 2025-4-20 14:05:45

如何判断一个文件夹是否存在存在就移动到其他盘符
要移动的文件夹C:\Program Files (x86)\1234
移动到D:\Tx
求份完整代码

是可可吖 · 发表于 2025-4-20 14:05:46

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

变量名	类型	静态	数组	备注
目录	文本型
目录名	文本型

目录＝ “C:\Program Files (x86)\1234”
目录名＝目录_取尾部目录名或文件名 (目录)

目录_复制 (目录, “D:\” ＋目录名)

小渣渣哦 · 发表于 2025-4-20 14:20:02

.版本 2

.子程序监听
.局部变量源文件夹路径, 文本型
.局部变量目标文件夹路径, 文本型
.局部变量尾部目录, 文本型

.判断循环首 (真)

' 设置源文件夹和目标文件夹路径
源文件夹路径＝ “C:\Program Files (x86)\1234”
目标文件夹路径＝ “D:\Tx”
尾部目录＝目录_取尾部目录名或文件名 (源文件夹路径)

' 判断源文件夹是否存在
.如果 (目录_是否存在 (源文件夹路径))
      ' 确保目标文件夹存在，不存在则创建
      .如果真 (目录_是否存在 (目标文件夹路径) ＝假)
         目录_创建 (目标文件夹路径＋ “\” ＋尾部目录)
      .如果真结束

      目录_取尾部目录名或文件名 (源文件夹路径)

      ' 移动文件夹
      .如果 (文件_移动 (源文件夹路径, 目标文件夹路径＋ “\” ＋尾部目录))
         信息框 (“文件夹移动成功！”, 0, “提示”, )
      .否则
         信息框 (“文件夹移动失败！”, 0, “错误”, )
      .如果结束

.否则
      信息框 (“源文件夹不存在！”, 0, “提示”, )
.如果结束

程序_延时 (1000)
.判断循环尾 ()

小旭旭 · 发表于 2025-4-20 14:21:43

小渣渣哦发表于 2025-4-20 14:20
.版本 2

.子程序监听

没用作用啊

小渣渣哦 · 发表于 2025-4-20 14:32:14

小旭旭发表于 2025-4-20 14:21
没用作用啊

啥呀，你是要一直监听吗

小旭旭 · 发表于 2025-4-20 14:37:36

小渣渣哦发表于 2025-4-20 14:32
啥呀，你是要一直监听吗

不是啊，如果没有这个文件夹就跳过呗

		自动登录	找回密码
密码			注册

[已解决] 关于移动文件夹

最佳答案

评分