中国DOS联盟

-- 联合DOS 推动DOS 发展DOS --

联盟域名：www.cn-dos.net　论坛域名：www.cn-dos.net/forum
DOS，代表着自由开放与发展，我们努力起来，学习FreeDOS和Linux的自由开放与GNU精神，共同创造和发展美好的自由与GNU GPL世界吧！

游客注册登录会员网志搜索命令提示符 Bash 上传统计

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

欢迎新会员 hello8888666　 RSS
共 48,039 主题排行 / 350,124 发帖 / 今日 2 篇 / 48,251 会员排行不转换/ 简体中文/ 繁體中文（台灣）/ 繁體中文（香港）

中国DOS联盟论坛 » DOS批处理 & 脚本技术（批处理室） » 【提问】vbs批量修改后缀名查看 880　回复 4

楼主 【提问】vbs批量修改后缀名发表于 2007-09-21 11:10　·　中国北京通州区联通

romancool

新手上路

★

积分 8
发帖 3
注册 2007-01-13 03:04
19年会员
UID 76343
性别男

状态离线

我想写一个批量修改某个文件夹下面指定后缀名文件的后缀名vbs,如把d:\test\*.vbs.test 改成 d:\test\*.vbs

请问应该怎么写？最主要是这个路径问题老是搞不明白，请高手赐教，谢谢~~

[ Last edited by romancool on 2007-9-21 at 11:17 AM ]

第 2 楼发表于 2007-09-21 11:50　·　中国香港腾讯云

wudixin96

银牌会员

★★★

积分 1,928
发帖 931
注册 2007-01-06 11:46
19年会员
UID 75624
性别男

状态离线

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 楼发表于 2007-09-21 12:06　·　中国北京通州区联通

romancool

新手上路

★

积分 8
发帖 3
注册 2007-01-13 03:04
19年会员
UID 76343
性别男

状态离线

十分感谢，但能不能自己定义被修改文件的后缀名和修改后的文件后缀名？而且我希望能够用ren命令来进行修改，请问可以吗？

第 4 楼发表于 2007-09-21 12:10　·　中国香港腾讯云

wudixin96

银牌会员

★★★

积分 1,928
发帖 931
注册 2007-01-06 11:46
19年会员
UID 75624
性别男

状态离线

楼主不是在顶楼说了用vbs吗？

而且也说了只是需要去除最后的.test。

如果用p处理的话，还简单些呢。

第 5 楼发表于 2007-09-21 12:57　·　中国北京通州区联通

romancool

新手上路

★

积分 8
发帖 3
注册 2007-01-13 03:04
19年会员
UID 76343
性别男

状态离线

确实用BAT比较简单，我因为刚想学VBS，所以希望能够用vbs来解决问题，现在就是想用VBS来执行CMD的命令，像Set objShell = CreateObject("Wscript.Shell")
objShell.Run(“”）类似的结构来解决，就是遇到了路径问题不知怎么解决，请您指点一下~~

可打印版本 | 订阅主题 | 收藏主题

论坛跳转: