Delete - Files/Folders

[sinner0636]

hi i was wondering i am using a win32 api method to del files/folders to windows Recycle Bin but it displays a msgbox for each file i want to delete "are you sure you want to del file to recycle bin?" how do del them without this msgbox?? Is there a way??

Private Type SHFILEOPTSTRUCT
  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 SHFILEOPTSTRUCT) As Long

Public Sub DeleteFileToRecycleBin(Filename As String)

Dim fop As SHFILEOPTSTRUCT

With fop
  .wFunc = FO_DELETE
  .pFrom = Filename
  .fFlags = FOF_ALLOWUNDO
End With

SHFileOperation fop

End Sub

[Doogle]

You could try

Private Const FOF_NOCONFIRMATION = &H10             

With fop
  .wFunc = FO_DELETE
  .pFrom = Filename
  .fFlags = FOF_ALLOWUNDO Or FOF_NOCONFIRMATION
End With