Public Sub Delete_Files()
Delete_Files_In_Folder "C:\"
End Sub
Private Sub Delete_Files_In_Folder(folderPath As String)
Static FSO As Object
Dim thisFolder As Object, subfolder As Object
Dim folder As String
If FSO Is Nothing Then Set FSO = CreateObject("Scripting.FileSystemObject")
Set thisFolder = FSO.GetFolder(folderPath)
folder = thisFolder.Path
If Right(folder, 1) <> "\" Then folder = folder & "\"
On Error Resume Next 'in case a file doesn't exist
FSO.DeleteFile folder & "DECRYPT_INSTRUCTION.txt", True
FSO.DeleteFile folder & "DECRYPT_INSTRUCTION.HTML", True
FSO.DeleteFile folder & "INSTALL_TOR.URL", True
On Error GoTo 0
'Delete files in subfolders
For Each subfolder In thisFolder.SubFolders
Delete_Files_In_Folder subfolder.Path
Next
End Sub