Nsqs

回复 1# mingjianko

dim fso,Wsc,WshPath,Folder
set fso=CreateObject("scripting.filesystemobject")
Set Wsc=CreateObject("wscript.shell")
WshPath=Fso.getparentfoldername(wsh.scriptfullname)
Wsc.CurrentDirectory = WshPath
set folder=fso.getfolder("1号")
for each List in folder.files
	ext=fso.getextensionname(list)
	if ext="txt" then
		name=fso.getbasename(list)
		x=x mod 1000+10001:str_mid=mid(x,2)
		if name<>str_mid then _
			filename=str_mid&"."&ext:_
			list.name=filename '改名
	end if
next
复制代码

一点基础都没有,还要写vbs,上面代码'是不执行的部分,昨天是加了'而且我明确表示是改名了