7. Удаление файлов в Корзину

 

Описание

Удаление файлов в Корзину (Recycle Bin), как это делает Проводник (Windows Explorer), причем будут использованы системные настройки Корзины, т.е. если у Вас установлен флажок "Уничтожать файлы сразу после удаления, не помещая их в корзину", то файл будет удален с диска без помещения в Корзину!

Объявления

Public Type SHFILEOPSTRUCT
  hwnd As Long
  wFunc As Long
  pFrom As String
  pTo As String
  fFlags As Integer
  fAnyOperationsAborted As Long
  hNameMappings As Long
  lpszProgressTitle As Long
End Type

Public Declare Function SHFileOperation Lib "shell32.dll" Alias "SHFileOperationA" (lpFileOp As SHFILEOPSTRUCT) As Long

Public Const FO_DELETE = &H3
Public Const FOF_ALLOWUNDO = &H40

Пример использования

Dim SHop As SHFILEOPSTRUCT
Dim strFile as string

With SHop
  .wFunc = FO_DELETE
  .pFrom = strFile
  .fFlags = FOF_ALLOWUNDO
End With

SHFileOperation SHop
' Где strFile есть полный путь к файлу, который Вы хотите поместить в Корзину

 

 

 

 

 

 

 

                                            ОБСУДИТЬ СТАТЬЮ НА ФОРУМЕ