遍历当前目录下的所有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/，如需转载，请注明出处，否则将追究法律责任。

转载于:http://blog.itpub.net/77544/viewspace-1030807/