ever4st on Nostr: program can be found here at ...

program can be found here at

quoting naddr1qv…qvdz

Warning: Use this at your own risk Backup your files before using them in the software Backup often, test your backup. Verify and dry test your files before doing a production run

I had to write this program because rmdir was claiming not to have enough authorization

context note1l0u…hm40

use strict;
use warnings;
use File::Path qw(remove_tree);

# Specify the directory to be deleted
my $directory = 'c:\\Users\\mydirectory\\mysubdirectory\\';

# Remove the directory
remove_tree($directory, {error => \my $err});

# Check for errors
if (@$err) {
    foreach my $diag (@$err) {
        my ($file, $message) = %$diag;
        if ($file eq '') {
            print "General error: $message\n";
        } else {
            print "Problem unlinking $file: $message\n";
        }
    }
} else {
    print "Directory successfully deleted.\n";
}