都是用fileObj.move实现的:
Set FSO=CreateObject("Scripting.FileSystemObject")
Set f1=fso.GetFile("C:\1.txt")
f1.Move("C:\2.txt")
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"
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)