VBA 制作文件&文件夹搜索工具
TitleStr = "共 " & Str(FolderCount) & " 个子文件夹,正在读取第 " & Str(Per) & " 个中的信息 ......"Call MainPer("主文件夹第一层级信息读取完毕", 5)Call MainPer("Init", 0) ' 复位子文件夹编号。' MsgBox ("啥玩意没搜到!Call SearchPer("正在搜索 .......")Label5.Caption = "" ' 清空进度条标题。.Title = "请选取需要被检索讯息的文件夹"
原创
2024-04-03 08:01:48 ·
1021 阅读 ·
3 评论