中国DOS联盟

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

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

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

共 48,039 主题排行 / 350,124 发帖 / 今日 2 篇 / 48,251 会员排行

DOS批处理 & 脚本技术（批处理室） » 【提问】vbs批量修改后缀名

可打印版本　881 / 4

第1楼　romancool	发表于 2007-09-21 11:10
新手上路　发帖 3　积分 8
【提问】vbs批量修改后缀名我想写一个批量修改某个文件夹下面指定后缀名文件的后缀名vbs,如把d:\test\.vbs.test 改成 d:\test\.vbs 请问应该怎么写？最主要是这个路径问题老是搞不明白，请高手赐教，谢谢~~ [ Last edited by romancool on 2007-9-21 at 11:17 AM ]

第2楼　wudixin96	发表于 2007-09-21 11:50
银牌会员　发帖 931　积分 1,928
Dim fso, f, f1, fc, foldpath foldpath = InputBox("请输入路径（相对或绝对）") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder(foldpath) Set fc = f.Files For Each f1 in fc f1.name = fso.GetBaseName(f1.name) Next MsgBox "修改成功！"

第3楼　romancool	发表于 2007-09-21 12:06
新手上路　发帖 3　积分 8
十分感谢，但能不能自己定义被修改文件的后缀名和修改后的文件后缀名？而且我希望能够用ren命令来进行修改，请问可以吗？

第4楼　wudixin96	发表于 2007-09-21 12:10
银牌会员　发帖 931　积分 1,928
楼主不是在顶楼说了用vbs吗？而且也说了只是需要去除最后的.test。如果用p处理的话，还简单些呢。

第5楼　romancool	发表于 2007-09-21 12:57
新手上路　发帖 3　积分 8
确实用BAT比较简单，我因为刚想学VBS，所以希望能够用vbs来解决问题，现在就是想用VBS来执行CMD的命令，像Set objShell = CreateObject("Wscript.Shell") objShell.Run(“”）类似的结构来解决，就是遇到了路径问题不知怎么解决，请您指点一下~~

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