Send File/Folder to Recycle Bin

Date: 02-16-2022

Return to Index

 
'Credit:  Patrice Terrier
 
FUNCTION SendToRecycleBin(BYVAL Srce AS STRING, BYVAL FlagDialog AS LONG) AS LONG
    DIM Sh AS SHFILEOPSTRUCT, ErrCode AS LONG
    LOCAL zSrce AS ASCIIZ * %MAX_PATH
 
    IF ISFILE(Srce) THEN
      zSrce = Srce
      Sh.wFunc = %FO_DELETE
      Sh.pFrom = VARPTR(zSrce)
      Sh.fFlags = %FOF_NOCONFIRMATION OR %FOF_ALLOWUNDO OR %FOF_SILENT
 
      IF FlagDialog THEN Sh.fFlags = %FOF_ALLOWUNDO
 
      ErrCode = SHFileOperation(Sh)
    ELSE
      ErrCode = 2 ' The system cannot find the file specified
    END IF
 
    FUNCTION = ErrCode
 
END FUNCTION
 
'gbs_01402
'Date: 10-17-2014

created by gbSnippets
http://www.garybeene.com/sw/gbsnippets.htm