DateDiff Funktion - Überprüfung eines Ordners auf Änderungen

  • VBScript

Es gibt 3 Antworten in diesem Thema. Der letzte Beitrag () ist von p41n.

    DateDiff Funktion - Überprüfung eines Ordners auf Änderungen

    Hallo Zusammen,

    Ich habe eine Script geschrieben, welches mir die aktuell geänderte Datei eines Ordners in einem bestimmten Zeitintervall ausgeben soll.
    Soweit funktioniert es auch. Wenn ich aber eine neue Datei in den Ordner packe, wird diese Datei bei der Suche nicht berücksichtigt.

    Hier mal mein Script:

    Visual Basic-Quellcode

    1. sPath = "D:\Test"
    2. sExt = "txt"
    4. 'Zeitangabe:
    5. intTime = 89280
    7. 'Intervalangabe:
    8. ' yyyy - Jahr
    9. ' q - Quartal
    10. ' m - Monat
    11. ' y - xter Tag eines Jahres
    12. ' d - Tag
    13. ' w - Wochentag
    14. ' ww - xte Woche eines Jahres
    15. ' h - Stunde
    16. ' n - Minute
    17. ' s - Sekunde
    18. interval = "n"
    20. If interval = "yyyy" Then
    21. Zeiteinheit = "Jahr(e)"
    22. ElseIf interval = "q" Then
    23. Zeiteinheit = "Quartal(e)"
    24. ElseIf interval = "m" Then
    25. Zeiteinheit = "Monat(e)"
    26. ElseIf interval = "y" Then
    27. Zeiteinheit = "Tag(e) eines Jahres"
    28. ElseIf interval = "d" Then
    29. Zeiteinheit = "Tag(e)"
    30. ElseIf interval = "w" Then
    31. Zeiteinheit = "Wochentag(e)"
    32. ElseIf interval = "ww" Then
    33. Zeiteinheit = "Woche(n) eines Jahres"
    34. ElseIf interval = "h" Then
    35. Zeiteinheit = "Stunde(n)"
    36. ElseIf interval = "n" Then
    37. Zeiteinheit = "Minute(n)"
    38. ElseIf interval = "s" Then
    39. Zeiteinheit = "Sekunde(n)"
    40. End If
    42. Set oFSO = CreateObject("Scripting.FileSystemObject")
    43. Set oFolder = oFSO.GetFolder(sPath)
    44. Set oFiles = oFolder.Files
    46. sNewestFile = ""
    47. intZahl = 0
    49. For Each oFile In oFiles
    51. If lcase(oFSO.GetExtensionName(oFile)) = sExt then
    53. sNewestFile = oFile.Path
    54. fromDate = oFile.DateLastModified
    55. toDate = Now()
    56. dDateDiff = DateDiff(interval,fromDate,toDate)
    58. If intTime > dDateDiff Then
    59. sNewestFile = oFile.Path
    60. intZahl = intZahl + 1
    61. End If
    63. End If
    65. Next
    67. If intTime > dDateDiff Then
    68. WScript.echo "Gewähltes Intervall: " & intTime & " " & Zeiteinheit & vbCrLf _
    69. & "Neueste geänderte Datei in angegebenem Intervall: " & sNewestFile
    70. Else
    71. WScript.echo "Gewähltes Intervall: " & intTime & " " & Zeiteinheit & vbCrLf _
    72. & "Keine geänderte Datei in angegebenem Intervall gefunden."
    73. End If


    Könnt ihr mir helfen und sagen, was ich falsch gemacht habe?

    Ziel ist es mit dem Script zu prüfen, ob der Kopiervorgang erfolgreich durchgeführt wurde, indem es mir die aktuell geänderte Datei ausgibt..

    Vielen Dank schon einmal für die Hilfe.


    Viele Grüße
    p41n

    Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „p41n“ ()

    Nach Studie einiger andere Beispiele habe ich mein Script nun folgendermaßen abgeändert:

    Visual Basic-Quellcode

    1. sPath = "D:\Test"
    2. sExt = "txt"
    4. 'Zeitangabe:
    5. intTime = 3
    7. 'Intervalangabe:
    8. ' yyyy - Jahr
    9. ' q - Quartal
    10. ' m - Monat
    11. ' y - xter Tag eines Jahres
    12. ' d - Tag
    13. ' w - Wochentag
    14. ' ww - xte Woche eines Jahres
    15. ' h - Stunde
    16. ' n - Minute
    17. ' s - Sekunde
    18. interval = "m"
    20. If interval = "yyyy" Then
    21. Zeiteinheit = "Jahr(e)"
    22. ElseIf interval = "q" Then
    23. Zeiteinheit = "Quartal(e)"
    24. ElseIf interval = "m" Then
    25. Zeiteinheit = "Monat(e)"
    26. ElseIf interval = "y" Then
    27. Zeiteinheit = "Tag(e) eines Jahres"
    28. ElseIf interval = "d" Then
    29. Zeiteinheit = "Tag(e)"
    30. ElseIf interval = "w" Then
    31. Zeiteinheit = "Wochentag(e)"
    32. ElseIf interval = "ww" Then
    33. Zeiteinheit = "Woche(n) eines Jahres"
    34. ElseIf interval = "h" Then
    35. Zeiteinheit = "Stunde(n)"
    36. ElseIf interval = "n" Then
    37. Zeiteinheit = "Minute(n)"
    38. ElseIf interval = "s" Then
    39. Zeiteinheit = "Sekunde(n)"
    40. End If
    42. Set oFSO = CreateObject("Scripting.FileSystemObject")
    43. Set oFolder = oFSO.GetFolder(sPath)
    44. Set oFiles = oFolder.Files
    46. For Each oFile In oFiles
    48. If lcase(oFSO.GetExtensionName(oFile)) = sExt then
    50. fromDate = oFile.DateLastModified
    51. toDate = Now()
    52. dDateDiff = DateDiff(interval,fromDate,toDate)
    54. If dDateDiff < intTime Then
    55. liste = liste & oFile.name & vbCrLf
    56. End If
    58. End If
    60. Next
    62. If liste = "" Then
    63. WScript.echo "Gewähltes Intervall: " & intTime & " " & Zeiteinheit & vbCrLf _
    64. & "Keine geänderte Datei in angegebenem Intervall gefunden."
    65. Else
    66. WScript.echo "Gewähltes Intervall: " & intTime & " " & Zeiteinheit & vbCrLf _
    67. & "Neueste geänderte Datei in angegebenem Intervall: " & vbCrLf & liste
    68. End If


    Nun gibt er mir eine Liste mit allen zuletzt geänderten Dateien im gewünschten Zeitraum des gewählten Ordners aus.
    Ich möchte aber nur die jüngste zuletzt geänderte Datei ausgeben lassen.

    Kann mir jemand helfen?


    VG p41n

    p41n schrieb:

    Ich möchte aber nur die jüngste zuletzt geänderte Datei ausgeben lassen.
    Was hältst du davon:

    Visual Basic-Quellcode

    1. Function LatestModifiedFile(Directory, Extension, ModDate)
    2. Set FS = CreateObject("Scripting.FilesystemObject")
    3. Set Path = FS.GetFolder(Directory)
    4. ModDate = 0
    5. For Each File In Path.Files
    6. If Right(File.Name, Len(Extension)) = Extension Then
    7. FileDate = File.DateLastModified
    8. If ModDate = 0 Then ModDate = FileDate
    9. If ModDate <= FileDate Then
    10. LatestModifiedFile = File.Path
    11. ModDate = FileDate
    12. End If
    13. End If
    14. Next
    15. End Function
    17. 'Aufruf:
    18. Dim ModDate
    19. WScript.Echo LatestModifiedFile("c:\Temp", "", ModDate), ModDate
    20. WScript.Echo LatestModifiedFile("c:\Temp", ".txt", ModDate), ModDate
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    Dieser Beitrag wurde bereits 2 mal editiert, zuletzt von „petaod“ ()

    Danke für die Hilfe..

    So richtig hat es mich leider nicht weitergebracht.

    Ich bleibe aber nun bei meiner Methode.

    Es geht sowieso nur darum einen Ordner zu prüfen, ob eine Sicherungsdatei erfolgreich kopiert wurde.
    Da der Ordner aber mehrere Dateien enthält, musste ich prüfen, welche die aktuellste ist.
    Die Sicherung wird zweimal am Tag ausgeführt und 5 Minuten nach der eigentlichen Sicherung, wird das Script per Task ausgeführt und überprüft, ob die Datei erfolgreich kopiert wurde und gibt sie mir in einer Logdatei aus. Da in dem Intervall von 10 Minuten sowieso nur eine Datei gefunden wird, ist die Ausgabe demnach auch nicht weiter tragisch.

    Also alles wunderbar. Trotzdem vielen Dank für eure Hilfe.


    Viele Grüße
    p41n