cmd

AutoTim

Danke dir. Nein, er soll nicht den Ordner löschen, sondern den Inhalt. Das wegen dem Papierkorb, ist nur dafür, das man auch die Option hat, sich den Papierkorb leeren zu lassen.

Danke dir für deinen Vorschlag !!!

lg Tim

Edit: Undzwar habe cih das Problem, das ich gerne den Pfad des Papierkorbes bräuchte. Das ist von Win 7 zu Xp unterschiedlich. Ich möchte gerne die Größe des Papierkorbes mit DirGetSize auslesen. Wie ist das möglich ?

RR04

[autoit]

;i Der Verzeichnispfad, des Laufwerkes dessen Papierkorb geleert werden soll
;i wenn nicht angegeben, werden alle Papierkörbe geleert
;i (siehe auch Hilfe).
FileRecycleEmpty("")

[/autoit]

AutoTim

Hey, du ich brauche den Pfad des Papierkorbes. Weil ich gerne mit DimgetSize(PFAD DES PAIERKORBES) die größe des Papierkorbinhaltes ermitteln möchte.

lg Tim

RR04

"C:\RECYCLER" für XP

AutoTim

ok, danke !!

Weis den noch jemand für Win 7 ?

lg Tim

Ineluki

C:/$Recycler.Bin

AutoTim

Ok, ich habe leider ein Problem, ich bekomme bei Folgendem Script -1 zurück.

[autoit]

if bitand(guictrlread($checkbox10),$GUI_CHECKED) then
$FileGetSizeREC1 = DirGetSize("C:/$Recycler.Bin")
Msgbox(0,"",$FileGetSizeREC1)
FileRecycleEmpty()
GUICtrlSetData ( $Label2, "Papierkorb gelehrt",1)
$FileGetSizeREC2 = DirGetSize("C:/$Recycler.Bin")
GUICtrlSetData ( $Progress1, 100 )
Sleep(500)
endif

[/autoit]

Warum denn ? Habe ich etwas falsch gemacht ?

lg Tim

Ineluki

Es könnte daran liegen, dass der Ordner ein System Ordner ist. Setz mal ein #RequireAdmin an den Anfang des Scripts

AutoTim

Hm, es mag immer noch nicht. Hier ist mein Script:

Spoiler anzeigen

[autoit]

#include <ButtonConstants.au3>
#include <GUIConstantsEx.au3>
#include <ProgressConstants.au3>
#include <StaticConstants.au3>
#include <WindowsConstants.au3>
#include <Process.au3> ; Für die _RunDOS
#include <EditConstants.au3> ; Für die EditBox in Hilfe
#RequireAdmin

[/autoit] [autoit][/autoit] [autoit]

Dim $Zahler1 = 0
Dim $Zahler2 = 0
Dim $Zahler3 = 0
Dim $Zahler4 = 0
Dim $Zahler5 = 0
Dim $Zahler6 = 0
Dim $Zahler7 = 0
Dim $Zahler8 = 0
Dim $Zahler9 = 0
Dim $Zahler10 = 0
Dim $Zahler20 = 0
Dim $FileGetSizeCookies1 = 0
Dim $FileGetSizeVerlauf1 = 0
Dim $FileGetSizeTIN1 = 0
Dim $FileGetSizeTemp1 = 0
Dim $FileGetSizeRecent1 = 0
Dim $FileGetSizeMOD1 = 0
Dim $FileGetSizeII1 = 0
Dim $FileGetSizeWTemp1 = 0
Dim $FileGetSizeCookies2 = 0
Dim $FileGetSizeVerlauf2 = 0
Dim $FileGetSizeTIN2 = 0
Dim $FileGetSizeTemp2 = 0
Dim $FileGetSizeRecent2 = 0
Dim $FileGetSizeMOD2 = 0
Dim $FileGetSizeII2 = 0
Dim $FileGetSizeWTemp2 = 0
Dim $FileGetSizeREC1
Dim $FileGetSizeREC2
Dim $freierplatz = 0

[/autoit] [autoit][/autoit] [autoit]

#Region ### START Koda GUI section ### Form=C:\Users\User\Desktop\Simple Cleaner.kxf
$SimpleCleaner = GUICreate("Simple Cleaner", 390, 688, 275, 166)
GUISetIcon("S-ico.ico")
$Fragezeichen = GUICtrlCreateMenu("?")
$Hilfe = GUICtrlCreateMenuItem("Hilfe", $Fragezeichen)
$Uber = GUICtrlCreateMenuItem("Über", $Fragezeichen)
$Checkbox1 = GUICtrlCreateCheckbox("Coockies löschen", 46, 48, 297, 33)
$Checkbox2 = GUICtrlCreateCheckbox("Lokale Verlauf löschen", 46, 80, 297, 33)
$Checkbox3 = GUICtrlCreateCheckbox("Temporare Internet Dateien löschen", 46, 112, 297, 33)
$Checkbox4 = GUICtrlCreateCheckbox("Temp- Ordner leeren", 46, 144, 297, 33)
$Checkbox5 = GUICtrlCreateCheckbox("Recent- Ordner leeren", 46, 176, 297, 33)
$Checkbox6 = GUICtrlCreateCheckbox("Microsoft Office Dateien Löschen", 46, 208, 297, 33)
$Checkbox7 = GUICtrlCreateCheckbox("Installation Informationen", 46, 240, 297, 33)
$Checkbox8 = GUICtrlCreateCheckbox("Windows Temp- Ordner leeren", 46, 272, 297, 33)
$Checkbox9 = GUICtrlCreateCheckbox("IP- FlushDNS", 46, 304, 297, 33)
$Checkbox10 = GUICtrlCreateCheckbox("Papierkorb leeren", 45, 337, 297, 33)
$Checkbox11 = GUICtrlCreateCheckbox("Checkbox", 45, 369, 297, 33)
$Checkbox12 = GUICtrlCreateCheckbox("Checkbox", 45, 401, 297, 33)
$Checkbox13 = GUICtrlCreateCheckbox("Checkbox", 45, 433, 297, 33)
$Checkbox14 = GUICtrlCreateCheckbox("Checkbox", 45, 465, 297, 33)
$ML = GUICtrlCreateButton("Markiertes Löschen", 134, 536, 121, 25, $WS_GROUP)
$Progress1 = GUICtrlCreateProgress(26, 624, 337, 33)
$Label1 = GUICtrlCreateLabel("Simple Cleaner", 119, 16, 151, 33)
GUICtrlSetFont(-1, 18, 800, 2, "Script MT Bold")
$Label2 = GUICtrlCreateLabel("Bitte zu löschende Dateien auswählen.", 23, 592, 343, 17)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###

[/autoit] [autoit][/autoit] [autoit]

While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
Exit

Case $Hilfe
#Region ### START Koda GUI section ### Form=C:\Users\User\Desktop\Simple Cleaoner\Hilfe.kxf
$HilfeForm = GUICreate("Hilfe", 413, 304, 302, 218)
GUISetIcon("S-ico.ico")
$GroupH1 = GUICtrlCreateGroup("Hilfe zu Simple Cleaner", 14, 15, 385, 265)
$EditH1 = GUICtrlCreateEdit("", 22, 36, 369, 233, BitOR($ES_AUTOVSCROLL,$ES_WANTRETURN,$WS_VSCROLL))
GUICtrlSetData(-1, "Mit Simple Cleaner, ist es Möglich überflüssige Systemdateien einfach und restlos zu entfernen. "&@crlf&""&@crlf&"Was Sie löschen möchten, entscheiden Sie! "&@crlf&"Sie markieren einfach was Sie löschen möchten, und drücken dann auf "&@crlf&""&@crlf&"-Markiertes Löschen-."&@crlf&""&@crlf&" Nun warten Sie einfach ab, bis alles erfolgreich gelöscht worden ist. "&@crlf&"Das Programm kann nun geschlossen werden.")
GUICtrlSetFont(-1, 12, 400, 0, "Comic Sans MS")
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete ($HilfeForm)
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

Case $Uber
#Region ### START Koda GUI section ### Form=C:\Users\User\Desktop\Simple Cleaoner\Über.kxf
$UberForm = GUICreate("Über", 324, 240, 302, 218)
GUISetIcon("S-ico.ico")
$picU1 = GUICtrlCreatePic("pic1.jpg", 16, 24, 105, 97, BitOR($SS_NOTIFY,$WS_GROUP,$WS_CLIPSIBLINGS))
$GroupBox1 = GUICtrlCreateGroup("", 8, 8, 305, 185)
$LabelU1 = GUICtrlCreateLabel("Simple Cleaner", 152, 24, 133, 28, $WS_GROUP)
GUICtrlSetFont(-1, 14, 400, 0, "MS Sans Serif")
$LabelU2 = GUICtrlCreateLabel("1.0", 152, 56, 26, 24, $WS_GROUP)
GUICtrlSetFont(-1, 12, 400, 0, "MS Sans Serif")
$LabelU4 = GUICtrlCreateLabel("Comments: Build Juli 2010", 16, 160, 127, 17, $WS_GROUP)
$LabelU3 = GUICtrlCreateLabel("Copyright by Tim Erler", 16, 136, 106, 17, $WS_GROUP)
GUICtrlCreateGroup("", -99, -99, 1, 1)
$OK = GUICtrlCreateButton("&OK", 112, 208, 75, 25)
GUISetState(@SW_SHOW)
#EndRegion ### END Koda GUI section ###
While 1
$nMsg = GUIGetMsg()
Switch $nMsg
Case $GUI_EVENT_CLOSE
GUIDelete ($UberForm)
ExitLoop

[/autoit] [autoit][/autoit] [autoit]

Case $OK
GUIDelete ($UberForm)
ExitLoop
EndSwitch
WEnd

[/autoit] [autoit][/autoit] [autoit]

Case $ML

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData ( $Progress1, 0 )

if bitand(guictrlread($checkbox1),$GUI_CHECKED) then
$FileGetSizeCookies1 = DirGetSize(@UserProfileDir & "\Cookies")
DirRemove(@UserProfileDir & "\Cookies",1)
GUICtrlSetData ( $Label2, "Coockies gelöscht" )
$FileGetSizeCookies2 = DirGetSize(@UserProfileDir & "\Cookies")
GUICtrlSetData ( $Progress1, 10 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox2),$GUI_CHECKED) then
$FileGetSizeVerlauf1 = DirGetSize(@UserProfileDir & "\Lokale Einstellungen\Verlauf")
DirRemove(@UserProfileDir & "\Lokale Einstellungen\Verlauf",1)
GUICtrlSetData ( $Label2, "Lokale Verlauf gelöscht" )
$FileGetSizeVerlauf2 = DirGetSize(@UserProfileDir & "\Lokale Einstellungen\Verlauf")
GUICtrlSetData ( $Progress1, 20 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox3),$GUI_CHECKED) then
$FileGetSizeTIN1 = DirGetSize(@UserProfileDir & "\Lokale Einstellungen\Temporary Internet Files")
DirRemove(@UserProfileDir & "\Lokale Einstellungen\Temporary Internet Files",1)
GUICtrlSetData ( $Label2, "Temporare Internet Dateien gelöscht" )
$FileGetSizeTIN2 = DirGetSize(@UserProfileDir & "\Lokale Einstellungen\Temporary Internet Files")
GUICtrlSetData ( $Progress1, 30 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox4),$GUI_CHECKED) then
$FileGetSizeTemp1 = DirGetSize(@UserProfileDir & "\Lokale Einstellungen\Temp")
DirRemove(@UserProfileDir & "\Lokale Einstellungen\Temp",1)
GUICtrlSetData ( $Label2, "Temp- Ordner gelehrt" )
$FileGetSizeTemp2 = DirGetSize(@UserProfileDir & "\Lokale Einstellungen\Temp")
GUICtrlSetData ( $Progress1, 40 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox5),$GUI_CHECKED) then
$FileGetSizeRecent1 = DirGetSize(@UserProfileDir & "\Recent")
DirRemove(@UserProfileDir & "\Recent",1)
GUICtrlSetData ( $Label2, "Recent- Ordner gelehrt" )
$FileGetSizeRecent2 = DirGetSize(@UserProfileDir & "\Recent")
GUICtrlSetData ( $Progress1, 50 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox6),$GUI_CHECKED) then
$FileGetSizeMOD1 = DirGetSize(@UserProfileDir & "\Anwendungsdaten\Microsoft\Office\Zuletzt verwendet")
DirRemove(@UserProfileDir & "\Anwendungsdaten\Microsoft\Office\Zuletzt verwendet",1)
GUICtrlSetData ( $Label2, "Microsoft Office Dateien gelöscht" )
$FileGetSizeMOD2 = DirGetSize(@UserProfileDir & "\Anwendungsdaten\Microsoft\Office\Zuletzt verwendet")
GUICtrlSetData ( $Progress1, 60 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox7),$GUI_CHECKED) then
$FileGetSizeII1 = DirGetSize("C:\Programme\InstallShield Installation Information")
DirRemove("C:\Programme\InstallShield Installation Information",1)
GUICtrlSetData ( $Label2, "Installation Informationen gelöscht" )
$FileGetSizeII2 = DirGetSize("C:\Programme\InstallShield Installation Information")
GUICtrlSetData ( $Progress1, 70 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox8),$GUI_CHECKED) then
$FileGetSizeWTemp1 = DirGetSize(@WindowsDir & "\Temp")
DirRemove(@WindowsDir & "\Temp",1)
GUICtrlSetData ( $Label2, "Windows Temp- Ordner gelehrt",1)
$FileGetSizeWTemp2 = DirGetSize(@WindowsDir & "\Temp")
GUICtrlSetData ( $Progress1, 80 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox9),$GUI_CHECKED) then
_RunDOS("ipconfig /flushdns")
GUICtrlSetData ( $Label2, "IP-DNS gelöscht" )
GUICtrlSetData ( $Progress1, 90 )
Sleep(500)
else
endif

[/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox10),$GUI_CHECKED) then
$FileGetSizeREC1 = DirGetSize("C:/$Recycler.Bin")
Msgbox(0,"",$FileGetSizeREC1)
FileRecycleEmpty()
GUICtrlSetData ( $Label2, "Papierkorb gelehrt",1)
$FileGetSizeREC2 = DirGetSize("C:/$Recycler.Bin")
GUICtrlSetData ( $Progress1, 100 )
Sleep(500)
endif

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData ( $Progress1, 100 )

[/autoit] [autoit][/autoit] [autoit]

$freierplatz = ((($FileGetSizeCookies1 + $FileGetSizeVerlauf1 + $FileGetSizeTIN1 + $FileGetSizeTemp1 + $FileGetSizeRecent1 + $FileGetSizeMOD1 + $FileGetSizeII1 + $FileGetSizeWTemp1 + $FileGetSizeREC1 ) - ($FileGetSizeCookies2 + $FileGetSizeVerlauf2 + $FileGetSizeTIN2 + $FileGetSizeTemp2 + $FileGetSizeRecent2 + $FileGetSizeMOD2 + $FileGetSizeII2 + $FileGetSizeWTemp2 + $FileGetSizeREC2)) / 1048576 )

[/autoit] [autoit][/autoit] [autoit]

GUICtrlSetData ( $Label2, "Es wurden " & $freierplatz & " Mb entfernt." )

[/autoit] [autoit][/autoit] [autoit][/autoit] [autoit]

if bitand(guictrlread($checkbox1),$GUI_UNCHECKED) then $Zahler1 = 1
if bitand(guictrlread($checkbox2),$GUI_UNCHECKED) then $Zahler2 = 1
if bitand(guictrlread($checkbox3),$GUI_UNCHECKED) then $Zahler3 = 1
if bitand(guictrlread($checkbox4),$GUI_UNCHECKED) then $Zahler4 = 1
if bitand(guictrlread($checkbox5),$GUI_UNCHECKED) then $Zahler5 = 1
if bitand(guictrlread($checkbox6),$GUI_UNCHECKED) then $Zahler6 = 1
if bitand(guictrlread($checkbox7),$GUI_UNCHECKED) then $Zahler7 = 1
if bitand(guictrlread($checkbox8),$GUI_UNCHECKED) then $Zahler8 = 1
if bitand(guictrlread($checkbox9),$GUI_UNCHECKED) then $Zahler9 = 1
if bitand(guictrlread($checkbox10),$GUI_UNCHECKED) then $Zahler10 = 1
$Zahler20 = $Zahler1 + $Zahler2 + $Zahler3 + $Zahler4 + $Zahler5 + $Zahler6 + $Zahler7 + $Zahler8 + $Zahler9 + $Zahler10

[/autoit] [autoit][/autoit] [autoit]

if $Zahler20 = 10 then ;Nur weil 10 Checkboxen zur verfügung stehen sonnt eben 9 oder co. --- Nun 10 mit dem Korb
GUICtrlSetData ( $Label2, "ES MUSS MINDESTENS EINE OPTION ANGEKLICKT SEIN" )
GUICtrlSetData ( $Progress1, 0 )
EndIf

[/autoit] [autoit][/autoit] [autoit]

Dim $Zahler1 = 0; Variablen wieder auf 0 Setzen
Dim $Zahler2 = 0
Dim $Zahler3 = 0
Dim $Zahler4 = 0
Dim $Zahler5 = 0
Dim $Zahler6 = 0
Dim $Zahler7 = 0
Dim $Zahler8 = 0
Dim $Zahler9 = 0
Dim $Zahler10 = 0
Dim $Zahler20 = 0
Dim $FileGetSizeCookies1 = 0
Dim $FileGetSizeVerlauf1 = 0
Dim $FileGetSizeTIN1 = 0
Dim $FileGetSizeTemp1 = 0
Dim $FileGetSizeRecent1 = 0
Dim $FileGetSizeMOD1 = 0
Dim $FileGetSizeII1 = 0
Dim $FileGetSizeWTemp1 = 0
Dim $FileGetSizeCookies2 = 0
Dim $FileGetSizeVerlauf2 = 0
Dim $FileGetSizeTIN2 = 0
Dim $FileGetSizeTemp2 = 0
Dim $FileGetSizeRecent2 = 0
Dim $FileGetSizeMOD2 = 0
Dim $FileGetSizeII2 = 0
Dim $FileGetSizeWTemp2 = 0
Dim $FileGetSizeREC1
Dim $FileGetSizeREC2
$freierplatz = 0

[/autoit] [autoit][/autoit] [autoit]

EndSwitch
WEnd

[/autoit]

lg Tim