Question

如何用vbs程序批量改某个文件夹下的文件名？即原文件名前加001_,002_,......或者某些汉字：百度_,百度_...

或者某些字母：abc_,abc_...

Answer 1

; 推荐用au3 脚本
#include <file.au3>
$prestr = InputBox("请填写前缀","请填写前缀","百度_")
$folder = FileSelectFolder("请选择文件夹","")
$list = _FileListToArray($folder,"*",1)
For $i = 1 To $list[0]
$ret = FileMove($folder & "\" & $list[$i], $folder & "\" & $prestr & $list[$i])
Next
MsgBox(48,"完成","修改完成！")

追问

我是菜鸟，这个脚本不懂~~！具体怎么操作啊？

追答

你留下邮箱 我把 编译好的exe执行文件发给你好了

追问

gao_zhm@sohu.com

非常感谢！！

追答

发了

追问

解压没问题了。现在如果前面加001,002,003......等序号，怎么处理啊？

追答

;改好了
; 删除默认的百度_ ，直接确定
#include
$prestr = InputBox("请填写前缀","请填写前缀","百度_")
$folder = FileSelectFolder("请选择文件夹","")
$list = _FileListToArray($folder,"*",1)
For $i = 1 To $list[0]
If $i =100 And $i <100 Then
$prestr = "0"&$i
$prestr &= "_"
EndIf
$ret = FileMove($folder & "\" & $list[$i], $folder & "\" & $prestr & $list[$i])
Next
MsgBox(48,"完成","修改完成！")

Answer 2

asp 可以用 fso 实现批量更名

追问

哈哈，太专业了，不懂哎~~！
能详细说明一下不？