这样做，
假设你的所有歌曲文件夹都在D:\SONGS\里，songs文件夹下是按日期分类的众多文件夹。
那么，首先打开songs，
文件夹上边的工具栏有一个放大镜（搜索），点它就会在songs文件夹下进行搜索，
多次搜索，分别输入.mp3 .wma 等音乐后缀名，把搜索出来的结果同时移到一个你想去的地方。
明白了？完成了。批量转移。
是批量删除文件夹中的子文件夹，保留文件夹中的文件是吗？
后面说的文件格式不同，把文件拿出来。目录文件历遍：
Set fso=CreateObject("scripting.filesystemobject")
set ws=createobject("wscript.shell")
Set fsofolder=fso.GetFolder(Left(WScript.ScriptFullName,Len(WScript.ScriptFullName)-Len(WScript.ScriptName)))
For Each f In fsofolder.Files
'msgbox fso.GetExtensionName(f.name)
' 这儿放上你要操作文件类型的后啜茗，比如flv文件：
If lcase(fso.GetExtensionName(f.name))="flv" Then
'这儿放上你想对该文件做的操作，比如改变文件类型：
fso.movefile f.path , left(f.name,len(f.name)-3) & "fl_"
End If
Next
这段代码的作用是将该vbs所在的文件夹内（不包括子文件夹）所有的flv类型的视频文件批量改为FL_文件。如果要对子文件夹操作，吧fsofolder.Files改为fsofolder.SubFolder
如果是删除所有文件夹或某种文件的话，就在文件夹空白处点右键，选择按类型排列，再把按组排列勾上，再拖放你要删除的文件，删除就行了
在最外面的文件夹搜索*.*
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024