Declare Function SHFileOperation Lib "shell32" Alias "SHFileOperationA" (lpFileOp As Byte) As Long
SHFileOperation копирует, перемещает, переименовывает или удаляет объект в файловой системе. Вместо незаметного выполнения действия, как это делают обычные функции API, SHFileOperation использует подсказки диалогового окна оболочки. Эта функция позволяет удалять файлы в Корзину вместо их удаления.
В случае ошибки функция возвращает ненулевое значение. В успешном случае возвращается 0.
' Удаляем файлы в корзину Dim SHFileOp As SHFILEOPSTRUCT With SHFileOp ' удаление файла .wFunc = FO_DELETE ' выбор файла .pFrom = "c:\test.txt" ' удаление в Корзину .fFlags = FOF_ALLOWUNDO End With ' начинаем операцию удаления SHFileOperation SHFileOp MsgBox "Файл был перемещен в Корзину"