Deletes tree of files
Sub DeleteTree(Fold)
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
' Set FSO = Server.CreateObject("Scripting.FileSystemObject") ' For Classic ASP
On Error Resume Next
If IsThere1(Fold, True, True, True) Then FSO.deletefolder Fold, True
On Error GoTo 0
Set FSO = Nothing
End Sub
Dim FSO As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
' Set FSO = Server.CreateObject("Scripting.FileSystemObject") ' For Classic ASP
On Error Resume Next
If IsThere1(Fold, True, True, True) Then FSO.deletefolder Fold, True
On Error GoTo 0
Set FSO = Nothing
End Sub
Fold
Views 4,372
Downloads 1,313
CodeID
DB ID