Bitte uhm hilfe

[A-G-E-N-T]

Also habe bissel rum gebaut und irgend wie löscht er den ordner inhalt nicht
hier mal der code


---- Form code -----

Private Sub Command1_Click()
Call OrderinhaltLöschen("C:\Dokumente und Einstellungen\" & GetCurrentUser & "\Lokale Einstellungen\Temporary Internet Files")
Call OrderinhaltLöschen("C:\Dokumente und Einstellungen\" & GetCurrentUser & "\Lokale Einstellungen\Verlauf")
Call OrderinhaltLöschen("C:\Dokumente und Einstellungen\" & GetCurrentUser & "\Lokale Einstellungen\Temp")
Call OrderinhaltLöschen("C:\Dokumente und Einstellungen\" & GetCurrentUser & "\Recent")
Call OrderinhaltLöschen("C:\Dokumente und Einstellungen\" & GetCurrentUser & "\Cookies")
Call OrderinhaltLöschen("C:\WINNT\Temp")
MsgBox "Fertig"
End Sub
Private Sub Label1_Click()
End
End Sub

---- modul code -----

Declare Function GetUserName Lib "advapi32.dll" Alias "GetUserNameA" (ByVal lpBuffer As String, nSize As Long) As Long
Public Function GetCurrentUser() As String
Dim slength As Long
Dim retval As Long
Dim username As String
username = Space(255)
slength = 255
retval = GetUserName(username, slength)
GetCurrentUser = Left(username, slength - 1)
End Function
Public Sub OrderinhaltLöschen(sPath As String)
Dim a As Long
On Error Resume Next
cleanup.File1.Path = sPath
For a = 0 To cleanup.File1.ListCount - 1
Kill IIf(Right(cleanup.File1.Path, 1) = "\", cleanup.File1.Path, cleanup.File1.Path & "\") & cleanup.File1.List(a)
Next a
End Sub

Bitte um hilfe danke

 

[Shakie]

Warum denn nicht? Kommt ein Fehler? Wenn ja, welcher?

 

[A-G-E-N-T]

Hier habe mal ein bild gemacht

Bild

 

[Shakie]

Na das heißt ganz einfach, das Windows es dir nicht erlaubt, eine Datei oder ein Verzeichnis zu löschen. An welcher Stelle im Code kommt denn das Fenster? Überprüfe das mal, dann weißt du auch was nicht gelöscht werden darf.

Edit: Statt dem "End" in dem Code hier:

Private Sub Label1_Click()
End
End Sub

solltest du ein "Unload Me" verwenden, das ist sozusagen "ordnungsgemäßer". Mit dem End-Befehl wird dein Programm abgebrochen und die Form wird nicht ordnungsgemäß aus dem Arbeitsspeicher gelöscht. Mit "Unload <Formname>" hingegen sagst du deiner Form, dass sie sich nun beenden soll.

Und du hättest nicht extra einen Screenshot machen müssen, es hätte gereicht wenn du die Fehlernummer mit Beschreibung einfach abgeschrieben hättest.

 

[A-G-E-N-T]

das

Private Sub Label1_Click()
End
End Sub

ist nur das porgramm zu schliessen o0 das einfach ein x ka was das mit deinen ordner löschen zutuhen hat

 

[Shakie]

Es hat gar nichts mit dem Löschen von Ordnern zu tun, es war nur ein allgemeiner Tipp.

 

[A-G-E-N-T]

Achso danke aber leider kann mir hier woll keiner helfen

 

[Shakie]

Achso danke aber leider kann mir hier woll keiner helfen

So würde ich das nicht sehen. Aber was willst du denn machen, wenn Windows dir verbietet, eine Datei zu löschen? Das liegt wohl daran, dass eine Anwendung gerade auf die Datei zugreift, vielleicht der Internet Explorer oder Windows selbst. So ist das halt.

 

[A-G-E-N-T]

Mhh,
ehm geht doch erlöscht halt nicht alle dateien,
ehm aber auch keine ordner habe mal in den temp ein paar ordner gemacht und die löscht er nicht!
kann mir einer sagen wie ich das mache das er auch ordner löscht
Und generell alle Rar$* datein löscht er nicht beispiel Rar$DR00.140

 

[Shakie]

Kann es sein, dass du nur den Inhalt der Ordner löscht, nicht aber die Ordner selber? Schließlich rufst du immer nur die Prozedur "OrderinhaltLöschen" auf, in der wird aber kein Ordner gelöscht.