中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --
联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum

游客 | 登录 | 注册 | 会员 | 搜索 | 中国DOS联盟

中国DOS联盟论坛
现在时间是 2026-08-05 13:56

共 48,038 主题排行 / 350,123 发帖 / 今日 1 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » [已解决]按要求实现批量改名（非一般的更名）

可打印版本　6,135 / 43

第16楼　jmz573515	发表于 2007-07-31 14:48
银牌会员　发帖 464　积分 1,212
vbs写的，直接读取读取“list.xls”文件 on error resume next set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") path=ws.currentdirectory Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(path & "\list.xls") h=1 do until objExcel.Cells(h,1).Value="" fso.getfile(objExcel.Cells(h,1).Value).name=objExcel.Cells(h,2).Value if err then objexcel.quit err.clear msgbox "出现错误，脚本退出！",16+4096,"提示" wscript.quit end if h=h+1 loop objExcel.Quit msgbox "操作成功！",4096+48,"系统提示"

第17楼　frankkf	发表于 2007-07-31 14:57
初级用户　发帖 43　积分 88
jmz573515辛苦我试试看~~

第18楼　frankkf	发表于 2007-07-31 15:05
初级用户　发帖 43　积分 88
提示：出现错误，脚本退出是不是环境设置有什么要求或者文件摆放的位置有要求

第19楼　jmz573515	发表于 2007-07-31 15:26
银牌会员　发帖 464　积分 1,212
list.xls，这个脚本，要改名的文件放在同一目录下。

第20楼　frankkf	发表于 2007-07-31 15:35
初级用户　发帖 43　积分 88
ms这句执行有错误：fso.getfile(objExcel.Cells(h,1).Value).name=objExcel.Cells(h,2).Value 文件名没有给对还是要加上文件的扩张名

第21楼　frankkf	发表于 2007-07-31 15:44
初级用户　发帖 43　积分 88
我这个脚本，list.xls，以及女人花.doc，文档.doc，记事本.doc 这几个文件我都放在同一目录下但是运行就会报错

第22楼　jmz573515	发表于 2007-07-31 15:44
银牌会员　发帖 464　积分 1,212
原来不就是带的扩展名吗？（我是按带扩展名处理的）还有如果文件名已经改过1个或着几个，就会出现错误，总之文件名和EXCEL里的内容要完全一致。

第23楼　frankkf	发表于 2007-07-31 15:45
初级用户　发帖 43　积分 88
会不会存在这个问题，脚本和list.xls在同一目录下可能会出错？

第24楼　jmz573515	发表于 2007-07-31 15:46
银牌会员　发帖 464　积分 1,212
不会，要求就是在同一目录下的

第25楼　frankkf	发表于 2007-07-31 15:48
初级用户　发帖 43　积分 88
我现在设置的是显示文件的扩展名实际情况是excel表格里面只给出文件的前缀，没有跟扩展名这个怎么改呢？

第26楼　frankkf	发表于 2007-07-31 15:52
初级用户　发帖 43　积分 88
同一目录下有其他文件不会发生冲突如果我把excel文件下对应的都加上文件的扩展名没问题可以修改但一般都不给出扩展名

第27楼　jmz573515	发表于 2007-07-31 15:57
银牌会员　发帖 464　积分 1,212
on error resume next set ws=createobject("wscript.shell") set fso=createobject("scripting.filesystemobject") path=ws.currentdirectory Set objExcel = CreateObject("Excel.Application") Set objWorkbook = objExcel.Workbooks.Open(path & "\list.xls") h=1 do until objExcel.Cells(h,1).Value="" fso.getfile(objExcel.Cells(h,1).Value & ".doc").name=objExcel.Cells(h,2).Value & ".doc" if err then objexcel.quit err.clear msgbox "出现错误，脚本退出！",16+4096,"提示" wscript.quit end if h=h+1 loop objExcel.Quit msgbox "操作成功！",4096+48,"系统提示"

第28楼　frankkf	发表于 2007-07-31 16:07
初级用户　发帖 43　积分 88
可以实现了谢谢jmz573515 学到很多哈~~ 起初只是想到用批处理来实现顺便问一下：16+4096,"提示以及：4096+48,"系统提示" 2个数字有什么特别的作用一些代码的意思有点理解其他继续学习ing [ Last edited by frankkf on 2007-7-31 at 04:08 PM ]

第29楼　slore	发表于 2007-07-31 16:53
铂金会员　发帖 2,478　积分 5,212
VbCritical 16 显示 Critical Message 图标。 VbExclamation 48 显示 Warning Message 图标。 vbSystemModal 4096 系统强制返回；全部应用程序都被挂起，直到用户对消息框作出响应才继续工作。（你居然加这个=.=）

第30楼　frankkf	发表于 2007-07-31 17:01
初级用户　发帖 43　积分 88
4096对系统有什么影响如果加的不对或者有问题的话，会出现什么情况

上一页　 1 2 3 　下一页

[ 联系联盟系统管理团队 - 中国DOS联盟 - 标准版 ]
Sponsored by ifanr Inc | © 2001–2023