Wie kann ich das verschieben von Dateien in den Papierkorb in einem Windows-batch-script oder Perl?

Ich habe eine Windows XP batch-Skript, welches reinigt einige Verzeichnisse, aber ich möchte zu bewegen die gelöschten Dateien in den Papierkorb, statt mit klarem del. Wie wird das gemacht?

Sieht es so aus das nur die Sprachen, die ich verwenden können, ist dies schlicht batch-oder Perl.

InformationsquelleAutor l0b0 | 2009-06-30
  1. 7
    use Win32::FileOp qw(Recycle);
Recycle(@ARGV);
    • Warum nicht einfach Recyceln(@ARGV)?
    • Guter Punkt. Ich bearbeitete die Antwort.
    • perl -MWin32::FileOp=Recycle -eRecycle(@ARGV) ...
    InformationsquelleAutor FMc
  2. 3

    Schreiben ein VBS-Skript ( Original-Link ), dann rufen Sie es mit MyDelScript.vbs 

    function main()
{
  if (WScript.Arguments.length != 1)
  {
    WScript.Echo("<Insert informative error message here>");
    return;
  }

  var Path = WScript.Arguments(0);
  var Shell = WScript.CreateObject("Shell.Application");
  var Item = Shell.Namespace(0).ParseName(Path);
  Item.InvokeVerb("delete");
}
    • dies funktioniert, so stellen Sie sicher, Ihren pass Pfad mit backslashes...
    • Ich bekomme eine Fehlermeldung auf Windows 7, wenn ich diese vbs-Datei. Die Meldung: "Zeile: 2 Char: 1 Fehler: Ungültiges Zeichen Code:800A0408, Quelle:Microsoft VBScript compilation error". Ich habe versucht den Vorschlag hier, aber es hilft nicht stackoverflow.com/a/9217824/781695
    InformationsquelleAutor Shay Erlichmen
  3. 3

    Den Win32::FileOp Modul hat eine Recycle Funktion. Aus den docs:

    Recycle @Dateinamen

    Senden Sie die Dateien in den Papierkorb. Erhalten Sie keine Bestätigungs-Dialogen.
    Gibt true zurück, wenn erfolgreich.

    • Ah! Ich wusste nicht, dass jemand hatte bereits realisiert, dass.
    InformationsquelleAutor Chas. Owens
  4. 1

    Können Sie mit der "Papierkorb" - Dienstprogramm, das Teil von CmdUtils von MaDdoG Software. Von der Seite mit einer Liste -

    • Recycle, ein sicherer Ersatz für den DEL-Befehl zum senden von Dateien in den Papierkorb, anstatt diese zu löschen. Recycle ist auch flexibler als DEL; Sie können mehrere Dateien auf einmal (oder Platzhalter verwenden), und Sie recyceln können ganze Verzeichnisse auf einmal (vorsichtig sein!)

    Ich würde vorschlagen, Sie versuchen Sie die verschiedenen Schalter, bevor Sie integrieren ihn in Ihre Skript - es ist ein bisschen von einer Abweichung vom Standard-Verhalten der "del" - Befehl.

    InformationsquelleAutor aks
  5. 1

    UPDATE: Entgegen meiner ursprünglichen Behauptung, dass der folgende code nicht funktioniert, es tatsächlich zu funktionieren scheint. Ich vergaß lediglich, dass die Datei wollte ich löschen, war nicht in $ENV{TEMP} aber ein Unterverzeichnis von $ENV{TEMP}. Das problem ist, die Datei nicht in den Papierkorb.

    Die richtige Lösung ist die Verwendung Win32::FileOp, aber ich werde lassen Sie dieses Skript hier als ein Beispiel für die Verwendung Win32::API und Win32::API::Struct. Ich würde es schätzen, wenn jemand zeigen kann, was ich falsch mache. Für Ihre Referenz:

    SHFileOperation: http://msdn.microsoft.com/en-us/library/bb762164(VS.85).aspx

    LPSHFILEOPSTRUCT: http://msdn.microsoft.com/en-us/library/bb759795(VS.85).aspx

    #!/usr/bin/perl

use strict;
use warnings;

use File::Spec::Functions qw( catfile );
use Win32::API;

Win32::API::Struct->typedef(
    SHFILEOPSTRUCT => qw(
        HWND hwnd;
        UINT wFunc;
        LPCTSTR pFrom;
        LPCTSTR pTo;
        FILEOP_FLAGS fFlags;
        BOOL fAnyOperationsAborted;
        LPVOID hNameMappings;
        LPCTSTR lpszProgressTitle;
    )
);

Win32::API->Import(
    shell32 => q{ int SHFileOperation( LPSHFILEOPSTRUCT lpFileOp ) }
);

my $op = Win32::API::Struct->new( 'SHFILEOPSTRUCT' );
$op->{wFunc}  = 0x0003; # FO_DELETE from ShellAPI.h
$op->{fFlags} = 0x0040; # FOF_ALLOWUNDO from ShellAPI.h

my $to_delete = catfile( $ENV{TEMP}, "test.file" );
$op->{pFrom}  = $to_delete . "\0\0";

my $result = SHFileOperation( $op );

if ( $result ) {
    warn sprintf "The operation failed: %4.4X\n", $result;
}
else {
    if ( $op->{fAnyOperationsAborted} ) {
        warn "Operation was aborted\n";
    }
    else {
        warn "The operation succeeded\n";
    }
}
__END__
    InformationsquelleAutor Sinan Ünür
Schreibe einen Kommentar