Hi,
da ich momentan alle meine VBSkripte durch AutoIt-Skripte ersetze, war auch WC
mal 'dran. WC ist bei mir eine Desktop-Verknüpfung, die alles löscht, was darauf
gezogen wird. So kann der Papierkorb immer noch zum sicheren Löschen verwendet
werden. Wer möchte, besorgt sich ein entsprechendes Icon ;-))
Eine Idee zum Spielen, wäre die Einbindung einer passenden Wav-Datei, um den Vorgang
auch akustisch zu dokumentieren. Da ich jedoch die Sounds sowieso ausgeschaltet habe,
bleibt diese Aufgabe für einen Benutzer, der es haben möchte..
Gruß
ytwinky
Spoiler anzeigen
Code
;<AutoItScript>
Opt("MustDeclareVars", 1) ;0=ohne, 1=erfordert Variablen-Deklaration
#NoTrayIcon ;Ohne Icon im Tray, hängende Prozesse im ProcessViewer beenden
;+----------------------------------------------------------------------------+
;| Header: Bestimmen der Übergabeparameter |
;| ( Alles Strings(!!!), bis auf ArgC ) |
;| FontAnzeigeCheck: |Il1 sind Alt-0124, Großes i, Kleines L, Eins |
Const $Autor="WC.au3 ©2006 by ytwinky, MD"; |
;| EMail: PIII1kSystem-AutoIt3Forum#yahoo.de |
;| AutoIt3-Version: 3.1.1.120(beta) |
;| Editor: SciTE 1.68, feste Schriftart |
;| Zweck : Dateien und Ordner sofort löschen, ohne Papierkorb.. |
;| Tab auf 2 setzen wg. Lesbarkeit |
;+----------------------------------------------------------------------------+
Dim $ArgC=$CmdLine[0], $s
If $ArgC=0 Then
$s="WC.xxx funktioniert nur mit Drag&Drop bzw. Kommandozeilenparameter.."
MsgBox(64, "Ooops..", "WC.xxx funktioniert nur mit Drag&Drop bzw. Befehlszeilenparametern..", 3)
Else
For $i=1 To $ArgC
$s&=DeleteIt($CmdLine[$i])
Next
If $s<>"" Then MsgBox(4096, "Da war was..", $s)
EndIf
Exit 255 ; Schummelmodus per ExitCode dokumentieren ;-))
;Unterprogramme
Func DeleteIt($Name)
If FileExists($Name) Then
If StringInstr(FileGetAttrib($Name), "D") Then
If DirRemove($Name, 1) Then Return "" ; mit ,1 klappts jetzt..
Return $Name &", Ordner nicht gelöscht.."
Else
If FileDelete($Name) Then Return ""
Return $Name &", Datei nicht gelöscht.."
EndIf
EndIf
EndFunc
;</AutoItScript>
).