可以使用 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(".") '遍历
'遍历一个文件夹下的所有文件与文件夹
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博客 ” ，链接：https://blog.itpub.net/77544/viewspace-1030807/ ，如需转载，请注明出处，否则将追究法律责任。
上一篇：
源代码扫描设备/软件列表
请登录后发表评论
登录
全部评论
