标题: 【提问】vbs批量修改后缀名 [打印本页]
作者: romancool 时间: 2007-9-21 11:10 标题: 【提问】vbs批量修改后缀名
我想写一个批量修改某个文件夹下面指定后缀名文件的后缀名vbs,如把d:\test\*.vbs.test 改成 d:\test\*.vbs
请问应该怎么写？最主要是这个路径问题老是搞不明白，请高手赐教，谢谢~~
[ Last edited by romancool on 2007-9-21 at 11:17 AM ]
作者: wudixin96 时间: 2007-9-21 11:50
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 "修改成功！"
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 "修改成功！"
作者: romancool 时间: 2007-9-21 12:06
十分感谢，但能不能自己定义被修改文件的后缀名和修改后的文件后缀名？而且我希望能够用ren命令来进行修改，请问可以吗？
作者: wudixin96 时间: 2007-9-21 12:10
楼主不是在顶楼说了用vbs吗？
而且也说了只是需要去除最后的.test。
如果用p处理的话，还简单些呢。
作者: romancool 时间: 2007-9-21 12:57
确实用BAT比较简单，我因为刚想学VBS，所以希望能够用vbs来解决问题，现在就是想用VBS来执行CMD的命令，像Set objShell = CreateObject("Wscript.Shell")
objShell.Run(“”）类似的结构来解决，就是遇到了路径问题不知怎么解决，请您指点一下~~