回复：有关文件重命名的问题
我改名是这样弄的：
打开一个记事本，扔以下代码进去：
strComputer = "."
numJPG = 1
FullPath = InputBox("请输入文件所在路径", "指定文件路径", "")
'FullPath = WScript.Arguments(0)
Set objWMIService = GetObject("winmgmts:\\" & strComputer & "\root\cimv2")
Set colFiles = objWMIService.ExecQuery _
("ASSOCIATORS OF {Win32_Directory.Name='" & FullPath & "'} Where " _
& "ResultClass = CIM_DataFile")
For Each objFile In colFiles
strEnd = Right(objFile.Name, 4)
strNewName = objFile.Drive & objFile.Path & CStr(numJPG) & strEnd
errResult = objFile.Rename(strNewName)
numJPG = numJPG +1
Next
然后存成一个vbs，执行，传入一个目录，这样那个目录的所有文件就都变成1、2、3、4……这样的文件名了……
我记得我原来发过这个代码的解释……不过好像不是在这里- -
-
1
评分次数
-
