Здравствуйте, Muhammedov Abdurohman!
Clearer - Программа для автоматического удаления файлов по заданной маске. Есть возможность задать неограниченное количество папок и масок для удаления файлов в этих папках. Опционально: - запуск с системой - выход из программы по завершении очистки. скачать можно здесь http://itshareware.by.ru/utilities/disk_and_file_system/clearer.shtml. Абсолютно бесплатная!

<i><font color=blue>(По данной ссылке можно перейти на страницу, где указан URL домашней страницы автора программы. Но при попытке зайти на страницу выдается 404 Not Found. Проверяйте ссылки на работоспособность.)</font></i> <i><a href=http://rusfaq.ru/info/user/12199 target=_blank>[ Климова М. ]</a></i>

Здравствуйте, Muhammedov Abdurohman!
Код для модуля в приложении, при создании проекта форму удалить. Скомпиленный файл в автозагрузку. Поиск идет по всем локальным жестким дискам.

Приложение:
Declare Function GetDriveType& Lib "kernel32" Alias "GetDriveTypeA" (ByVal nDrive As String)Sub Main()Dim lDrv As LongDim sDrv As StringFor lDrv = 67 To 90 ‘C to Z sDrv = Chr(lDrv) + ":" If GetDriveType(sDrv + "") = 3 Then DelMedia sDrv End IfNext lDrvEndEnd SubPrivate Sub DelMedia(ByVal dir_name As String)On Error Resume NextDim file_name As StringDim files As CollectionDim i As LongDim sExt As String Set files = New Collection file_name = Dir$(dir_name & "\*.*", vbReadOnly + vbHidden + vbSystem + vbDirectory) Do While Len(file_name) > 0 If (file_name <> "..") And (file_name <> ".") Then files.Add dir_name & "" & file_name End If file_name = Dir$() Loop For i = 1 To files.Count file_name = files(i) If GetAttr(file_name) And vbDirectory Then DelMedia file_name Else sExt = LCase(Right(file_name, 3)) Select Case sExt Case "avi", "mp3", "mpg" SetAttr file_name, vbNormal Kill file_name End Select End If Next iEnd Sub

Здравствуйте, Muhammedov Abdurohman!
Этот код удаляет файлы *.MP3 с диска С:\ имейте в виду, что в папке Windiws находятся системные файлы *.avi и удалять естественно нельзя, будьте осторожны!

Private Sub Комманда1_Click()
Путь = "C:" ‘ Указывает путь.
Имя_папки = Dir(Путь, vbDirectory) ‘ Возвращает первый элемент.
Do While Имя_папки <> "" ‘ Начинает цикл. Игнорирует текущий каталог и каталог предыдущего уровня.
If Имя_папки <> "." And Имя_папки <> ".." Then ‘ Использует поразрядное сравнение для проверки того, является ли Имя_Папки каталогом.
If (GetAttr(Путь & Имя_папки) And vbDirectory) = vbDirectory Then
Колич_папок = Колич_папок + 1 ‘ Выводит элемент только в том случае, если это каталог.
Метка1.Caption = Колич_папок & " найдено"
Список_папок = Список_папок & Путь & Имя_папки & Chr(10)
End If
End If
Имя_папки = Dir ‘ Возвращает следующий элемент.
DoEvents
Loop
Do While i <> Len(Список_папок)
i = i + 1
ОдинСимвол = Mid(Список_папок, i, 1)
строка = строка + ОдинСимвол
If Asc(ОдинСимвол) = 10 Then
Путь = Mid(строка, 1, Len(строка) - 1) & ""
Имя_папки = Dir(Путь, vbDirectory)
Do While Имя_папки <> ""
If Имя_папки <> "." And Имя_папки <> ".." Then
If (GetAttr(Путь & Имя_папки) And vbDirectory) = vbDirectory Then
Колич_папок = Колич_папок + 1
Метка1.Caption = Колич_папок & " папок найдено"
Список_папок = Список_папок & Путь & Имя_папки & Chr(10)
End If
End If
Имя_папки = Dir ‘ Возвращает следующий элемент.
DoEvents
Loop
строка = ""
End If
Loop
i = 0
Колич_папок = 0

Do While i <> Len(Список_папок)
i = i + 1
ОдинСимвол = Mid(Список_папок, i, 1)
строка = строка + ОдинСимвол
If Asc(ОдинСимвол) = 10 Then
Путь = Mid(строка, 1, Len(строка) - 1) & ""
Имя_файла = Dir(Путь & "*.mp3")
Do While Имя_файла <> ""
Kill Путь & Имя_файла
Колич_папок = Колич_папок + 1
Метка2.Caption = Колич_папок & " файлов удалено"
Имя_файла = Dir
Loop
строка = ""
End If
DoEvents
Loop
End
End Sub