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

Posted 2023-04-24

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

; 推荐用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执行文件发给你好了

追问

[e-mail]

非常感谢！！

追答

发了

追问

解压没问题了。现在如果前面加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,"完成","修改完成！")

参考技术A asp 可以用 fso 实现批量更名追问

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

如何用VBS逐行读取文本文件的内容，并输入变量

如题。在一文本文件中("c:123.txt")有若干行（未知行数），怎么逐行读取该文件，输入到变量里(可以用一维数组)。求高手解答。
新手，使用变量的时候不要太专业 看不懂....

参考技术A Set fso = CreateObject("Scripting.FileSystemObject")
Set file1 = fso.OpenTextFile("c:\123.txt",Forreading, False)
DO While file1.AtEndOfStream <> True
'读出每行
line =line & file1.ReadLine & vbcrlf

loop
msgbox line本回答被提问者采纳