文件名及扩展名同时批量大小写转换工具完整源代码，大神飘过！

莫林风尚

  

窗口程序集名	保 留	保 留	备 注
启动窗口程序集
变量名	类 型	数组	备 注
文件名数组	文本型	0

子程序名	返回值类型	公开	备 注
_文件夹选择按钮_被单击

文件夹编辑框.内容 ＝ 浏览文件夹 (“请选择一个需要操作的文件夹”, )

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

结束 ()

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

变量名	类 型	静态	数组	备 注
是否到大写	逻辑型
是否包括子目录	逻辑型
改名失败列表数组	文本型		0
临时文件名	文本型
循环次数	整数型

清除数组 (文件名数组)
列表框1.清空 ()
如果真 (文件夹编辑框.内容 ＝ “”)
信息框 (“对不起，请先选择一个所在的文件夹或整体目录，请稍后再试！”, #警告图标, “File Extension”, )
返回 ()

如果 (单选框2.选中)
是否到大写 ＝ 真
是否到大写 ＝ 假
如果 (选择框1.选中)
是否包括子目录 ＝ 真
是否包括子目录 ＝ 假

如果 (是否包括子目录)
文件搜索 (文件夹编辑框.内容) ' 递归搜索目录及子目录
如果真 (取文本右边 (文件夹编辑框.内容, 1) ≠ “\”)
文件夹编辑框.内容 ＝ 文件夹编辑框.内容 ＋ “\”
临时文件名 ＝ 寻找文件 (文件夹编辑框.内容 ＋ “*.*”, )
判断循环首 (临时文件名 ≠ “”)
加入成员 (文件名数组, 文件夹编辑框.内容 ＋ 临时文件名)
列表框1.选择项目 (列表框1.加入项目 (文件夹编辑框.内容 ＋ 临时文件名, ), )
处理事件 ()
' 输出调试文本 (临时文件名)
临时文件名 ＝ 寻找文件 (, )
判断循环尾 ()

如果真 (取数组下标 (文件名数组, ) ＝ 0)
返回 ()
进度条1.位置 ＝ 0
进度条1.最大位置 ＝ 取数组下标 (文件名数组, )
如果真 (信息框 (“你确定需要对下列【文件名及扩展名】执行转换操作吗？”, 1 ＋ 32, “File Extension”, ) ＝ #取消钮 )
列表框1.清空 ()
返回 ()
进度条1.可视 ＝ 真
如果 (是否到大写)
计次循环首 (取数组下标 (文件名数组, ), 循环次数)
如果真 (文件更名 (文件名数组 [循环次数], 到大写 (文件名数组 [循环次数])) ＝ 假)
加入成员 (改名失败列表数组, 文件名数组 [循环次数])
' 输出调试文本 (文件名数组 [循环次数])
进度条1.位置 ＝ 循环次数
处理事件 ()
计次循环尾 ()

计次循环首 (取数组下标 (文件名数组, ), 循环次数)
如果真 (文件更名 (文件名数组 [循环次数], 到小写 (文件名数组 [循环次数])) ＝ 假)
加入成员 (改名失败列表数组, 文件名数组 [循环次数])
' 输出调试文本 (文件名数组 [循环次数])
进度条1.位置 ＝ 循环次数
处理事件 ()
计次循环尾 ()

如果真 (取数组下标 (改名失败列表数组, ) ＝ 0)
信息框 (“亲~~文件名及扩展名已批量转换成功” ＋ #换行符 ＋ “成功转换的文件数合计：” ＋ 到文本 (取数组下标 (文件名数组, )) ＋ “个”, 64, , )
进度条1.可视 ＝ 假
返回 ()
信息框 (“感谢你的使用，目前部分文件批量转换操作失败，请稍后再试！”, 48, “File Extension”, )

子程序名	返回值类型	公开	备 注
文件搜索
参数名	类 型	参考	可空	数组	备 注
目录名	文本型

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

处理事件 ()
如果真 (取文本右边 (目录名, 1) ≠ “\”)
目录名 ＝ 目录名 ＋ “\”

临时文件名 ＝ 寻找文件 (目录名 ＋ “*.*”, )
判断循环首 (临时文件名 ≠ “”)
加入成员 (文件名数组, 目录名 ＋ 临时文件名)
列表框1.选择项目 (列表框1.加入项目 (目录名 ＋ 临时文件名, ), )
处理事件 ()
' 输出调试文本 (临时文件名)
临时文件名 ＝ 寻找文件 (, )
判断循环尾 ()
临时文件名 ＝ 寻找文件 (目录名 ＋ “*.*”, #子目录 )
判断循环首 (临时文件名 ≠ “”)
如果真 (取文本左边 (临时文件名, 1) ≠ “.”)
文件搜索 (目录名 ＋ 临时文件名)
临时文件名 ＝ 寻找文件 (, #子目录 )
判断循环尾 ()

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

载入 (关于窗口, , 真)

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

i支持库列表	支持库注释
shell	操作系统界面功能支持库

.版本 2<br /> .支持库 shell<br /> <br /> .程序集 启动窗口程序集<br /> .程序集变量 文件名数组, 文本型, , "0"<br /> <br /> .子程序 _文件夹选择按钮_被单击<br /> <br /> 文件夹编辑框.内容 ＝ 浏览文件夹 (“请选择一个需要操作的文件夹”, )<br /> <br /> .子程序 _退出按钮_被单击<br /> <br /> 结束 ()<br /> <br /> .子程序 _开始按钮_被单击<br /> .局部变量 是否到大写, 逻辑型<br /> .局部变量 是否包括子目录, 逻辑型<br /> .局部变量 改名失败列表数组, 文本型, , "0"<br /> .局部变量 临时文件名, 文本型<br /> .局部变量 循环次数, 整数型<br /> <br /> 清除数组 (文件名数组)<br /> 列表框1.清空 ()<br /> .如果真 (文件夹编辑框.内容 ＝ “”)<br /> 信息框 (“对不起，请先选择一个所在的文件夹或整体目录，请稍后再试！”, #警告图标, “File Extension”, )<br /> 返回 ()<br /> .如果真结束<br /> <br /> .如果 (单选框2.选中)<br /> 是否到大写 ＝ 真<br /> .否则<br /> 是否到大写 ＝ 假<br /> .如果结束<br /> .如果 (选择框1.选中)<br /> 是否包括子目录 ＝ 真<br /> .否则<br /> 是否包括子目录 ＝ 假<br /> .如果结束<br /> <br /> .如果 (是否包括子目录)<br /> 文件搜索 (文件夹编辑框.内容) ' 递归搜索目录及子目录<br /> .否则<br /> .如果真 (取文本右边 (文件夹编辑框.内容, 1) ≠ “\”)<br /> 文件夹编辑框.内容 ＝ 文件夹编辑框.内容 ＋ “\”<br /> .如果真结束<br /> 临时文件名 ＝ 寻找文件 (文件夹编辑框.内容 ＋ “*.*”, )<br /> .判断循环首 (临时文件名 ≠ “”)<br /> 加入成员 (文件名数组, 文件夹编辑框.内容 ＋ 临时文件名)<br /> 列表框1.选择项目 (列表框1.加入项目 (文件夹编辑框.内容 ＋ 临时文件名, ), )<br /> 处理事件 ()<br /> ' 输出调试文本 (临时文件名)<br /> 临时文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> .如果结束<br /> <br /> .如果真 (取数组下标 (文件名数组, ) ＝ 0)<br /> 返回 ()<br /> .如果真结束<br /> 进度条1.位置 ＝ 0<br /> 进度条1.最大位置 ＝ 取数组下标 (文件名数组, )<br /> .如果真 (信息框 (“你确定需要对下列【文件名及扩展名】执行转换操作吗？”, 1 ＋ 32, “File Extension”, ) ＝ #取消钮)<br /> 列表框1.清空 ()<br /> 返回 ()<br /> .如果真结束<br /> 进度条1.可视 ＝ 真<br /> .如果 (是否到大写)<br /> .计次循环首 (取数组下标 (文件名数组, ), 循环次数)<br /> .如果真 (文件更名 (文件名数组 [循环次数], 到大写 (文件名数组 [循环次数])) ＝ 假)<br /> 加入成员 (改名失败列表数组, 文件名数组 [循环次数])<br /> ' 输出调试文本 (文件名数组 [循环次数])<br /> .如果真结束<br /> 进度条1.位置 ＝ 循环次数<br /> 处理事件 ()<br /> .计次循环尾 ()<br /> <br /> .否则<br /> .计次循环首 (取数组下标 (文件名数组, ), 循环次数)<br /> .如果真 (文件更名 (文件名数组 [循环次数], 到小写 (文件名数组 [循环次数])) ＝ 假)<br /> 加入成员 (改名失败列表数组, 文件名数组 [循环次数])<br /> ' 输出调试文本 (文件名数组 [循环次数])<br /> .如果真结束<br /> 进度条1.位置 ＝ 循环次数<br /> 处理事件 ()<br /> .计次循环尾 ()<br /> .如果结束<br /> <br /> .如果真 (取数组下标 (改名失败列表数组, ) ＝ 0)<br /> 信息框 (“亲~~文件名及扩展名已批量转换成功” ＋ #换行符 ＋ “成功转换的文件数合计：” ＋ 到文本 (取数组下标 (文件名数组, )) ＋ “个”, 64, , )<br /> 进度条1.可视 ＝ 假<br /> 返回 ()<br /> .如果真结束<br /> 信息框 (“感谢你的使用，目前部分文件批量转换操作失败，请稍后再试！”, 48, “File Extension”, )<br /> <br /> .子程序 文件搜索<br /> .参数 目录名, 文本型<br /> .局部变量 临时文件名, 文本型<br /> <br /> 处理事件 ()<br /> .如果真 (取文本右边 (目录名, 1) ≠ “\”)<br /> 目录名 ＝ 目录名 ＋ “\”<br /> .如果真结束<br /> <br /> 临时文件名 ＝ 寻找文件 (目录名 ＋ “*.*”, )<br /> .判断循环首 (临时文件名 ≠ “”)<br /> 加入成员 (文件名数组, 目录名 ＋ 临时文件名)<br /> 列表框1.选择项目 (列表框1.加入项目 (目录名 ＋ 临时文件名, ), )<br /> 处理事件 ()<br /> ' 输出调试文本 (临时文件名)<br /> 临时文件名 ＝ 寻找文件 (, )<br /> .判断循环尾 ()<br /> <br /> 临时文件名 ＝ 寻找文件 (目录名 ＋ “*.*”, #子目录)<br /> .判断循环首 (临时文件名 ≠ “”)<br /> .如果真 (取文本左边 (临时文件名, 1) ≠ “.”)<br /> 文件搜索 (目录名 ＋ 临时文件名)<br /> .如果真结束<br /> 临时文件名 ＝ 寻找文件 (, #子目录)<br /> .判断循环尾 ()<br /> <br /> .子程序 _关于按钮_被单击<br /> <br /> 载入 (关于窗口, , 真)<br /> <br /> .子程序 __启动窗口_创建完毕

注意：有一个小小的问题，就是编译出来的程序360会报毒，请问各位易友有什么办法可以解决吗？因为源代码编译出来的程序会报毒，所有本人为了安全起见，没有将源码打包上传，就仅仅只复制了全部完整的源代码。

year1970

感谢分享

malu

1111111111111111

318252652

文件名及扩展名同时批量大小写转换工具完整源代码，大神飘过

xtpl

如何加上批量修改文件名就完美了

忧郁之子

说实话真的没弄懂是什么意思

HEJIAWEI

新手看不懂。顶一下

a1059035792

新手看不懂。顶一下