| {\rtf1\ansi\ansicpg1252\deff0\deflang1044{\fonttbl{\f0\fnil\fcharset0 MS Sans Serif;}} \viewkind4\uc1\pard\f0\fs17 The built in VB function Kill will delete a file permanently from disk. This code will delete a file to the recycle bin giving the user the option of getting it back if the recycle bin hasn't yet been emptied. \par \par 'Declarations section: \par Private Type SHFILEOPSTRUCT \par \tab hwnd As Long \par \tab wFunc As Long \par \tab pFrom As String \par \tab pTo As String \par fFlags As Integer \par \tab fAnyOperationsAborted As Boolean \par hNameMappings As Long \par \tab lpszProgressTitle As String \par End Type \par Private Declare Function SHFileOperation Lib "shell32.dll" \par Alias "SHFileOperationA" (lpFileOp As \par SHFILEOPSTRUCT) As Long \par Private Const FO_DELETE = &H3 \par Private Const FOF_ALLOWUNDO = &H40 \par 'No user interface will be displayed if an error occurs. \par Private Const FOF_NOERRORUI = &H400 \par Private Const FOF_NOCONFIRMATION = &H10 ' Don't prompt the user. \par Function KillToRecycleBin(ByVal strFileToDelete As String, _ \par \tab Optional ByVal PromptUser As Boolean = False) As Long \par Dim lngFlags As Long \par Dim FileOperation As SHFILEOPSTRUCT \par \par lngFlags = FOF_ALLOWUNDO Or FOF_NOERRORUI \par If Not PromptUser Then lngFlags = lngFlags Or FOF_NOCONFIRMATION \par \par With FileOperation \par .wFunc = FO_DELETE \par .pFrom = strFileToDelete \par .fFlags = lngFlags \par End With \par \par ' Returns 0 if no error \par KillToRecycleBin = SHFileOperation(FileOperation) \par End Function \par \par \par To send a file to the recycle bin use: \par \par KillToRecycleBin "C:\\TheFileToDelete.txt" \par \par To prompt the user to send a file to the recycle bin use: \par \par KillToRecycleBin "C:\\TheFileToDelete.txt", True \par } |
Deleting a file to the Recycle Bin |
India web developer web development India | India web development company India ecommerce web developer