jyswjjgdwtdtj

set fso=createobject("scripting.filesystemobject")
sub filetree(fdobject,name)
	set folders=fdobject.subfolders
	for each folder in folders
        		if folder.subfolders.count=0 then
			fso.movefolder folder.path,replace(folder.path,folder.name,name&"-"&folder.name)
		else
			name=name&"-"&folder.name
			filetree folder,name
		end if
	next
end sub
filetree fso.getfolder("这里填写目标目录","这里填写目标目录的目录名")
'例：filetree fso.getfolder("c:/windows","windows")
复制代码

不知道好不好使 图个乐子
总之比以上的都要短

jyswjjgdwtdtj

回复 7# dylanwang


    三楼是vbs代码 保存为*.vbs 然后自己修改开头两个变量的内容
你也可以直接保存到vbs 然后用bat通过运行参数来