VBScript

Const TITLE = "批量改名脚本" Sub Main Dim fso,fdr Dim newname Dim key Dim ask Dim num key = InputBox("请输入文件名中要被删除的部分", TITLE) If Len(key) = 0 Then Exit Sub ask = (MsgBox("是否逐文件询问？", vbYesNo Or vbQuestion, TITLE) = vbYes) Set fso = CreateObject(