vba удалить файл

Ответ от Алексей Смирнов[гуру]
Создайте новый проект. В модуль формы поместите следующий код (не забудьте правильно указать имена файлов) :
' СОБЫТИЕ: загрузка формы
Private Sub Form_Load()
' константы
Const FILE_NAME = "d: ext.txt" ' имя файла с текстом
Const FILE_TEMP = "d: mpfile.txt" ' имя временного файла
' переменные
Dim intIn As Integer ' номер входного файла
Dim intOut As Integer ' номер выходного файла
Dim strBuf As String ' буфер строки
Dim strS As String ' критерий
' установка критерия удаления
strS = "мама"
' открытие файла для чтения
intIn = FreeFile
Open FILE_NAME For Input As #intIn
' открытие файла для записи
intOut = FreeFile
Open FILE_TEMP For Output As #intOut
' чтение/запись строк
Do Until EOF(intIn)
' чтение строки
Line Input #intIn, strBuf
' запись строки, если она не равна критерию
If strBuf <> strS Then Print #intOut, strBuf
Loop
' закрытие файлов
Close #intOut
Close #intIn
' удаление и переименование
Kill FILE_NAME
Name FILE_TEMP As FILE_NAME
' закрытие формы
Unload Me
End Sub