Recycle File

[justsomeguy]

@SMcNeill I fixed a few typos, but it seems to work on my machine. Good Job Steve!

Code: (Select All)

SCREEN _NEWIMAGE(800, 600, 32)



OPEN "MyFile.txt" FOR OUTPUT AS #1

PRINT #1, "Test:" + DATE$ + " " + TIME$

CLOSE

PRINT "File created called MyFile.txt"



Recycle "MyFile.txt"

PRINT "MyFile.txt should now be recycled and in the Recycle Bin, instead of just erased permanently."

PRINT "Check your recycle bin to see if it exists there and contains a simple message of 'Test'."

END



SUB Recycle (file$)

  IF _FILEEXISTS(file$) THEN

    $IF WIN THEN

            ps$ = "powershell -NoLogo -NoProfile -Command "

            ps$ = ps$ + Chr$(34) + "Add-Type -AssemblyName Microsoft.VisualBasic; "

            ps$ = ps$ + "[Microsoft.VisualBasic.FileIO.FileSystem]:eleteFile('"

            ps$ = ps$ + file$

            ps$ = ps$ + "','OnlyErrorDialogs','SendToRecycleBin')" + Chr$(34)

            Shell _Hide ps$

    $ELSEIF MAC THEN

            Shell _Hide "mv " + Chr$(34) + file$ + Chr$(34) + " ~/.Trash/"

            If _FileExists(file$) Then 'a back up second method as per here --> https://www.macterminal.cc/answers/mv-command-examples

                message$ = "File failed to move to trash folder.  Possible reasons for this are:" + Chr$(10)

                message$ = message$ + Chr$(10)

                message$ = message$ + "1. Missing Full Disk Access" + Chr$(10)

                message$ = message$ + "By default, the Terminal does not have permission to modify 'protected' folders like ~/.Trash/, leading to 'Operation not permitted' errors.  "

                message$ = message$ + Chr$(10)

                message$ = message$ + "Fix: Go to System Settings > Privacy & Security > Full Disk Access and toggle the switch for Terminal to ON." + Chr$(10)

                message$ = message$ + Chr$(10)

                message$ = message$ + Chr$(10)

                message$ = message$ + "2. Incorrect Trash Path for External Drives" + Chr$(10)

                message$ = message$ + "Each drive on a Mac has its own hidden trash folder. If the file you are moving is on an external drive, ~/.Trash/ (which is on your internal startup disk) might not be the correct destination for a simple 'move'." + Chr$(10)

                message$ = message$ + Chr$(10)

                message$ = message$ + "Fix: For files on external volumes, the path is usually /Volumes/[DriveName]/.Trashes/[UserUID]/." + Chr$(10)

                message$ = message$ + Chr$(10)

                message$ = message$ + Chr$(10)

                message$ = message$ + "3. Folder Ownership or Corruption" + Chr$(10)

                message$ = message$ + "Sometimes the .Trash directory itself has incorrect permissions or has become corrupted." + Chr$(10)

                message$ = message$ + Chr$(10)

                message$ = message$ + "Verify: Run ls -ld ~/.Trash to see the permissions. It should be owned by your username with rwx permissions." + Chr$(10)

                message$ = message$ + "Fix: If it's missing or broken, you can recreate it by running mkdir ~/.Trash (though you may need to delete a corrupted one first with sudo rm -rf ~/.Trash)." + Chr$(10)

                _MessageBox "File failed to move to trash", message$, "info"

            End If

    $ELSE

      'Assume Linux-like environment with gio available

      SHELL _HIDE "gio trash " + CHR$(34) + file$ + CHR$(34)

    $END IF

  END IF

END SUB