Здравствуйте, помогите решить следующую задачу плиз.

Имеем макрос (что бы заработало необходимо так же подключить в preferens библиотеку Microsoft Scripting Runtime) который удаляет все файлы с раширением "htm" в подпапке папки "Удалить" (D:\Удалить\Папка\файл.htm

Sub Удалить()
Dim n As String
Dim fso As New FileSystemObject
Dim fold1 As folder, fold2 As folder
Dim curFile1 As File, curFile2 As File

n = "htm"
Set fold2 = fso.GetFolder("D:Удалить\") 'Папка с подпапками

On Error Resume Next
For Each fold3 In fold2.SubFolders
For Each curFile1 In fold3.Files
E = Right(curFile1, 3)

If E = n Then
curFile1.Delete
End If
Next
Next
End Sub

А как сделать цикл что бы макрос пробегал не только по указанной подпапке а ещё и глубже по всем подпапкам ( D:\Удалить\Папка\Папка\Папка\Папка\ и т.д.) ???