Jag har en kod som flyttar vald fil till Papperskorgen. Funkar fint, men man får upp Windows egna dialogruta (om man ställt in Windows för att fråga innan borttagning av filer).

Jag vill slippa denna dialogruta, men fortfarande kunna kasta filerna i tunnan.

Hur göra?

Lägg till flaggan FOF_SILENT.




'Module1

Option Explicit

Public Const FO_DELETE = &H3

Public Const FOF_SILENT = &H4
Public Const FOF_NOCONFIRMATION = &H10
Public Const FOF_ALLOWUNDO = &H40


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


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


Dim x As SHFILEOPSTRUCT

Public Function DeleteFile(ByVal FileName As String) As Boolean
Dim lReturn As Long
Dim lpFileOp As SHFILEOPSTRUCT
lpFileOp.wFunc = FO_DELETE
lpFileOp.pFrom = FileName
lpFileOp.fFlags = FOF_SILENT Or FOF_NOCONFIRMATION Or FOF_ALLOWUNDO

lReturn = SHFileOperation(lpFileOp)

DeleteFile = (lReturn = 0)
End Function

Tackar, tackar!
Ska prova det. :-)