Declare Function DeleteFile Lib "kernel32" Alias "DeleteFileA" (ByVal lpFileName As String) As Long
DeleteFile удаляет файлы (не пересылая их в корзину). Пользуйтесь ею осторожно, так как при этом не появляется сообщение с потверждением удаления файла
' Удаляем файл D:\Samples\anyfile.txt Dim retval As Long ' возвращаемое значение retval = DeleteFile("D:\Samples\anyfile.txt") If retval = 1 Then Debug.Print "Файл успешно удален"