中国DOS联盟

sub scan(folder_) ''scan函数定义， set folder_=fso.getfolder(folder_) set files=folder_.files '' 当前目录的所有文件集合 for each file in filesext=fso.GetExtensionName(file) ''获取文件后缀 脚本提示这里不是一个集合 ext=lcase(ext) ''后缀名转换成小写字母 if ext="mp5" then ''如果后缀名是mp5，则删除 fso.filedelete(file) end if next set subfolders=folder_.subfoldersfor for each subfolder in subfolders ''搜索其他目录；递归调用 scan( ) scan(subfolder) next end sub

注释是单引号…… for each file in filesext=fso.GetExtensionName(file) 貌似要写2句吧？

function bianli(path) set fso=createobject("scripting.filesystemobject") dim objFolder '文件夹对象 dim objSubFolders '子文件夹集合 dim objSubFolder '子文件夹对象 dim objFiles '文件集合 dim objFile '文件对象 on error resume next set objFolder=fso.GetFolder(path)'创建文件夹对象 set objSubFolders=objFolder.Subfolders'创建的子文件夹对象 for each objSubFolder in objSubFolders nowpath=path + "\" + objSubFolder.name set objFiles=objSubFolder.Files for each objFile in objFiles wscript.echo nowpath & "\" & objFile.name next bianli(nowpath) '调用递归 next set objFolder=nothing set objSubFolders=nothing set fso=nothing wscript.echo path & "里的所有文件已经处理完毕……" end function

查找扩展名为mp5的那几句呢？

Set FSO = CreateObject("Scripting.FileSystemObject") bianli(".") Set FSO = Nothing Function bianli(path) Dim objFolder '文件夹对象 Dim objSubFolders '子文件夹集合 Dim objSubFolder '子文件夹对象 Dim objFiles '文件集合 Dim objFile '文件对象 on Error Resume Next Set objFolder = FSO.GetFolder(path) '创建文件夹对象 Set objFiles = objFolder.Files For Each objFile In objFiles FileExt = FSO.GetExtensionName(objFile) If UCase(FileExt) = "MP5" Then wscript.echo path & "\" & objFile.Name Next Set objSubFolders = objFolder.Subfolders '创建的子文件夹对象 For Each objSubFolder In objSubFolders nowpath = path + "\" + objSubFolder.name bianli(nowpath) '调用递归 Next Set objFolder = Nothing Set objSubFolders = Nothing End Function

这段程序就是运行起来如果检测到扩展名为MP5就弹窗显示出路径是吧。 怎么这样调用的呢bianli(".") 有点不明白。 [ Last edited by hackhd on 2008-2-1 at 10:47 PM ]

. 表示当前目录……

你自己测试过没？我在当前目录建一个XX.MP5脚本也不提示啊。

我测试过的…… 那就不知道了。。。

在前面加一个遍历本地硬盘C盘除外的代码。 Set FSO = CreateObject("Scripting.FileSystemObject") Set dc = fso.Drives '得到系统所有驱动盘列表 for each d in dc if d.drivetype=2 or (d.drivetype=1 and d<>"A:" and d<> "B:" and d<> "C:") then bianli(d&"\") NEXT For Each objFile In objFiles'脚本提示这句没有权限

这个有人提过……遍历的时候访问某些文件夹过不了。。。 但是直接用函数bianli(那个目录)确可以。 这个我就不清楚。我没有写过要用遍历的脚本。

我发现还是代码问题。已解决