'楼主的第一个问题,(VBS写的,只处理当前文件夹)
Set WshShell = WScript.CreateObject("WScript.Shell")
set fso=createobject("scripting.filesystemobject")
on error resume next
set folder=fso.getfolder(WshShell.CurrentDirectory)
set files=folder.files
for each file in files
if lcase(fso.GetExtensionName(file)) ="txt" then
b=b+1
file.name=FSO.GetBaseName(File) & b & ".txt"
end if
next
msgbox "已经将所有txt文件以“基本文件名+序号”的形式命名。",48+4096,"操作完成"
@echo off&setlocal EnableDelayedExpansion
dir /a-d/b|findstr /i ".jpg" >name.txt
set a=1
for /f "delims=" %%i in (name.txt) do (
if not "%%~ni"=="%~n0" (
ren "%%i" "%%~ni!a!%%~xi"
set/a a+=1
)
)
del name.txt>nul 2>nul