Public Sub AlarmFilesLoeschen()
'**************************************************************************
'*Zweck Aufruf zum Loeschen der aml, cel und bin Files
'* Files die 鋖ter als 14 Tage sind werden unwiederruflich gel鰏cht
'*
'*
'*R點kgabe: Fehlernummer, 0=OK, 1=FalscherDateityp
'*
'*Format: Pfad: "C:\Daten\Visu\"
'* DateiTyp: "*.aml,*.cel,*.bin,*.arv" mit Kommas getrennt
'* ohne Leerzeichen, max 30
'* Tage: 14
'**************************************************************************
Dim gfWert As Long
Dim ngfWert As Long
Dim doWert As Long



-----------------------------------------------------------------------------------------------------------
Public Sub AlarmArchiveDelete()
'Delete all alarm files or delete all alarm files older than 10 days

Dim DeleteAll As Boolean
Dim ArchivePath As String
Dim FS As FileSystemObject ' needs 'Microsoft s cripting Runtime' !!!
Set FS = New FileSystemObject

On Error GoTo myerror

' Get del property from calling zenOn user
If thisProject.Passwords.LoggedUser <> "admin" Then
DeleteAll = False
Else
DeleteAll = True
End If

' Ask operator again
If DeleteAll Then
If MsgBox(thisProject.String("@M鯿hten Sie wirklich das gesamte Meldungsarchiv l鰏chen?"), vbYesNo, "Archiv") = vbNo Then
Exit Sub
End If
End If

' Get alarm runtime path
ArchivePath = thisProject.Path & ComputerName & "\" & thisProject.name & "\"
If Not FS.FolderExists(ArchivePath) Then
MsgBox "Skriptfehler, Pfad nicht vorhanden: " & ArchivePath, vbCritical
GoTo myerror
End If

' Set zenOn runtime function for deleting files
Set rtfunct = thisProject.rtfunctions.Item("Fkt__Dateioperation")

' Set runtime function properties
If DeleteAll Then
rtfunct.DynProperties("Parameter[0].IsTimeCond") = False
Else
rtfunct.DynProperties("Parameter[0].Days") = ARCHIVE_DAYS
rtfunct.DynProperties("Parameter[0].IsTimeCond") = True
End If
rtfunct.DynProperties("Parameter[0].IsErrorMsg") = True
rtfunct.DynProperties("Parameter[0].IsYounger") = False
rtfunct.DynProperties("Parameter[0].IsFilterRT") = False
rtfunct.DynProperties("Parameter[0].Modus") = 2 'Delete
rtfunct.DynProperties("Parameter[0].Source") = ArchivePath & _
"A??????.AML" 'Filter to ...AML
' Start this runtime function
rtfunct.Start

Exit Sub

myerror:
s_Allgemein.LogError "AlarmArchiveDelete", Err
End Sub



loesche "c:\Zenon_RT\", "*.aml,*.cel", 3, gfWert, ngfWert, doWert



End Sub