Hallo,

ich habe mir gestern ein Script geschrieben, welches Log-Dateien in einem bestimmten Ordner löscht, die älter als 10 Tage sind. Jedoch hätte ich nun gerne die Messagebox aus dem Script und schaffe es nicht, diese Messageboxen herauszuscripten.....

Option Explicit

Dim Pfad, Alter

Pfad = "Z:\!Mitarbeiter\Röhrig\IT Technik\VB Script\Löschen"

Alter = 10 ' Dateien, die seit 10 Tagen nicht geändert wurden

MsgBox AltesLoeschen (Pfad, Alter ), vbOKOnly, "Delete Files" 'Function Aufruf UND Ergebnisanzeige
'AltesLoeschen "Z:\!Mitarbeiter\Röhrig\IT Technik\VB Script\Löschen", -1 'Function Aufruf OHNE Ergebnisanzeige
' ~~~~~~
WScript.Quit

'*********************************************************
Function AltesLoeschen (Pfad, Alter) ' Anfang
'*********************************************************
Dim fso, oFiles, i, Txt
Alter = FormatDateTime( now() - Alter ,2)
Set fso = WScript.CreateObject("Scripting.FileSystemObject")

if not fso.FolderExists( Pfad ) then
MsgBox UCase(Pfad) & " existiert nicht!", , WScript.ScriptName
Exit Function
End If

AltesLoeschen = "In dem Pfad " & UCase( Pfad ) & " wurden alle vor dem " & Alter & " geänderten Dateien gelöscht." & vbCRLF & vbCRLF
Set oFiles = fso.GetFolder( Pfad ).Files

For Each i In oFiles
if DateDiff("d" , i.DateLastModified, Alter) > 0 then ' vor dem Alter geänderte Dateien

Txt = i.path ' nach dem Löschen von i.Path ist auch i.Path gelöscht
AltesLoeschen = AltesLoeschen & i.Name & " " & vbTab & FormatDateTime( i.DateLastModified ,2)

On Error Resume Next

fso.DeleteFile i.path, True

On Error GoTo 0

If not fso.FileExists( Txt ) Then
AltesLoeschen = AltesLoeschen & vbCRLF
Else
AltesLoeschen = AltesLoeschen & " nicht gelöscht." & vbCRLF
End if
End If
Next

Set oFiles = nothing
Set fso = nothing

End Function ' AltesLoeschen

Danke im Vorraus für eure Hilfe