如何用VBS重命名文件

这个问题非常简单，暂时没有电脑，你把我这个代码拿去修改一下就可以用了，非常简单

http://wapiknow.baidu.com/question/575575001.html?fr=index_nav&uid=AA7C6D076014183CFB37E7D62E761DBB&pu=sz%401320_240%2Cos%40android&bd_page_type=1&init=iphone&step=2

把修改文件内容删掉换成修改文件名，把分配字符那一段代码稍微改一下要处理特定的字符就行了。注意别忘了把mmmm改成-。实在不会找个高手帮你改一改这个代码也行。只需改2~3处位置就行了

folder = "A目录" '这里写你的那些文件所在的文件夹就好了

firstName = InputBox("请输入文件名前缀：","请输入")

If firstName = "" Then WScript.Quit

Set fso = CreateObject("Scripting.FileSystemObject")

For Each x In fso.GetFolder(folder).Files

x.Name = firstName & x.Name

Next

MsgBox "重命名完毕",64+4096,"OK"

---