html资源目录下,遍历当前目录下的所有HTML文件，并且显示到屏幕中

可以使用 cscript xx.vbs>>1.htm 将显示的文字全部写到html文件中[@more@]Function FilesTree(sPath)

'遍历一个文件夹下的所有文件与文件夹

Set oFso = CreateObject("Scripting.FileSystemObject")

Set oFolder = oFso.GetFolder(sPath)

Set oSubFolders = oFolder.SubFolders

Set oFiles = oFolder.Files

For Each oFile In oFiles

If LCase(Right(oFile.name,4))="html" Or LCase(Right(oFile.name,4))=".htm" Then

WScript.Echo "" & oFile.Name &""

End If

'oFile.Delete

Next

For Each oSubFolder In oSubFolders

WScript.Echo oSubFolder.Path

'oSubFolder.Delete

FilesTree(oSubFolder.Path)'递归

Next

Set oFolder = Nothing

Set oSubFolders = Nothing

Set oFso = Nothing

End Function

FilesTree(".") '遍历

来自 “ ITPUB博客 ” ，链接：http://blog.itpub.net/77544/viewspace-1030807/，如需转载，请注明出处，否则将追究法律责任。