选文件自动建文件夹

左手00

1.多选或单选一个文件
2.自动取选到的文件名
3.根据文件名新建文件夹
4.把文件自动移动到文件夹内(原桌面文件就不要是移动)
5.再把文件自动复制两个文件，后续名自动加个1和2.

因工作量大，所以想到看能不能用易语言自动完成，不然文件太多一个一个去新建文件夹，然后复制又来后续名，太猥琐！

寒潮

  

变量名	类 型	静态	数组	备 注
局_指定目录	文本型
局_文件数组	文本型
局_计次	整数型
局_文件路径	文本型
局_文件名	文本型
局_文件后缀	文本型

局_指定目录 ＝ “你指定的目录，比如桌面”
文件_枚举 (局_指定目录, “*.*”, 局_文件数组, 真, 真, 假)
计次循环首 (取数组成员数 (局_文件数组), 局_计次)
局_文件路径 ＝ 局_文件数组 [局_计次]
目录_处理 (局_文件路径)
局_文件名 ＝ 文件_取文件名 (局_文件数组 [局_计次])
局_文件后缀 ＝ 文件_取扩展名 (局_文件数组 [局_计次])
如果真 (目录_是否存在 (局_文件路径 ＋ 局_文件名) ＝ 假)
目录_创建 (局_文件路径 ＋ 局_文件名)
文件_移动 (局_文件数组 [局_计次], 局_文件路径 ＋ 局_文件名 ＋ “\” ＋ 局_文件名 ＋ 局_文件后缀)
计次循环尾 ()

.版本 2<br /> <br /> .局部变量 局_指定目录, 文本型<br /> .局部变量 局_文件数组, 文本型<br /> .局部变量 局_计次, 整数型<br /> .局部变量 局_文件路径, 文本型<br /> .局部变量 局_文件名, 文本型<br /> .局部变量 局_文件后缀, 文本型<br /> <br /> 局_指定目录 ＝ “你指定的目录，比如桌面”<br /> 文件_枚举 (局_指定目录, “*.*”, 局_文件数组, 真, 真, 假)<br /> .计次循环首 (取数组成员数 (局_文件数组), 局_计次)<br />     局_文件路径 ＝ 局_文件数组 [局_计次]<br />     目录_处理 (局_文件路径)<br />     局_文件名 ＝ 文件_取文件名 (局_文件数组 [局_计次])<br />     局_文件后缀 ＝ 文件_取扩展名 (局_文件数组 [局_计次])<br />     .如果真 (目录_是否存在 (局_文件路径 ＋ 局_文件名) ＝ 假)<br />         目录_创建 (局_文件路径 ＋ 局_文件名)<br />     .如果真结束<br />     文件_移动 (局_文件数组 [局_计次], 局_文件路径 ＋ 局_文件名 ＋ “\” ＋ 局_文件名 ＋ 局_文件后缀)<br /> .计次循环尾 ()

未经测试，大概可以，供参考。

左手00

寒潮 发表于 2020-7-1 20:26
[e=0].版本 2

.局部变量 局_指定目录, 文本型

多谢，这得解决多少事。

左手00

寒潮 发表于 2020-7-1 20:26
[e=0].版本 2

.局部变量 局_指定目录, 文本型

你好；新建的文件夹，名称有点问题
另文件是移动进去了，但是没有另复制两个文件

寒潮

左手00 发表于 2020-7-1 23:46
你好；新建的文件夹，名称有点问题
另文件是移动进去了，但是没有另复制两个文件

都移到进去了，确定成功后，再复制两个就可以了。