VisualBasic Dateien auf bestimmtes Alter prüfen, Skript vorhanden

[estre]

Hallo Leute,

Ich habe folgendes Skript, das bestimmte Dateien aus einem Ordner liest und entsprechend deren Alter, Rückgabewerte ausspuckt, so habe ich es zumindest verstanden.
Das Skript soll jetzt insofern erweitert werden, dass PDF-Dateien auch gecheckt werden. Noch besser wäre es wenn man den zu prüfenden Dateityp einfach als Parameter übergeben könnte.

Da ich in VB überhaupt nicht firm bin hoffe ich ihr könnt das Skript entsprechend anpassen.

Vielen Dank für die Hilfe!

' Vars
Dim fso, folder, folderFile, today, file, argFolder
today = now

'Constants
Const intOK = 0
Const intWarning = 1
Const intCritical = 2
Const intUnknown = 3

argFolder = Wscript.Arguments.Unnamed.Item(0)
argZeit = Wscript.Arguments.Unnamed.Item(1)
argZeit = trim(argZeit)

'Replace ";" with "\"
argFolder = Replace(argFolder,"~","\")

Set fso = CreateObject("Scripting.FileSystemObject")
Set folder = fso.GetFolder(argFolder)

Set folderFiles = folder.files

For Each file in folderFiles

            
            If (StrComp(file,folder & "\default.ini") <> 0) Then

                        If (StrComp(file,folder & "\test.db") <> 0) Then
                        
                                   If (cint(DateDiff("h", file.DateLastModified, today)) >= cint(argZeit)) Then
            
                                   'File found, quit program
                                   Wscript.Echo "CRITICAL: Dateien in " & argFolder & " aelter als " & argZeit & " Stunden"
                                   Wscript.Quit(intCritical) 
                                   
                                   End If
                        End If

            End If
Next

' Everything OK
Wscript.Echo "OK: Keine Datei im Verzeichnis " & argFolder & " aelter als " & argZeit & " Stunden"
Wscript.Quit(intOK)


if (err <> 0) Then
            Wscript.Echo "UNKNOWN: Fehler beim ausfuehren des Scripts"
            Wscript.Quit(intUnknown)
End If

 

[X__]

Sieht für mich so aus, als wenn ohnehin alle Dateien ausser
"test.db" und "default.ini" auf das Alter geprüft werden.

Also eigentlich müssten ohne Änderung so auch PDFs geprüft werden.

 

[estre]

Ah du hast natürlich recht, sry VB finde ich grauenhaft

Es ist so, dass PDF-Dateien auch nicht gecheckt werden sollen, hatte mich da missverständlich ausgedrückt.

Viele Grüße