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:
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
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
- sPath = "D:\Test"
- sExt = "txt"
- 'Zeitangabe:
- intTime = 89280
- 'Intervalangabe:
- ' yyyy - Jahr
- ' q - Quartal
- ' m - Monat
- ' y - xter Tag eines Jahres
- ' d - Tag
- ' w - Wochentag
- ' ww - xte Woche eines Jahres
- ' h - Stunde
- ' n - Minute
- ' s - Sekunde
- interval = "n"
- If interval = "yyyy" Then
- Zeiteinheit = "Jahr(e)"
- ElseIf interval = "q" Then
- Zeiteinheit = "Quartal(e)"
- ElseIf interval = "m" Then
- Zeiteinheit = "Monat(e)"
- ElseIf interval = "y" Then
- Zeiteinheit = "Tag(e) eines Jahres"
- ElseIf interval = "d" Then
- Zeiteinheit = "Tag(e)"
- ElseIf interval = "w" Then
- Zeiteinheit = "Wochentag(e)"
- ElseIf interval = "ww" Then
- Zeiteinheit = "Woche(n) eines Jahres"
- ElseIf interval = "h" Then
- Zeiteinheit = "Stunde(n)"
- ElseIf interval = "n" Then
- Zeiteinheit = "Minute(n)"
- ElseIf interval = "s" Then
- Zeiteinheit = "Sekunde(n)"
- End If
- Set oFSO = CreateObject("Scripting.FileSystemObject")
- Set oFolder = oFSO.GetFolder(sPath)
- Set oFiles = oFolder.Files
- sNewestFile = ""
- intZahl = 0
- For Each oFile In oFiles
- If lcase(oFSO.GetExtensionName(oFile)) = sExt then
- sNewestFile = oFile.Path
- fromDate = oFile.DateLastModified
- toDate = Now()
- dDateDiff = DateDiff(interval,fromDate,toDate)
- If intTime > dDateDiff Then
- sNewestFile = oFile.Path
- intZahl = intZahl + 1
- End If
- End If
- Next
- If intTime > dDateDiff Then
- WScript.echo "Gewähltes Intervall: " & intTime & " " & Zeiteinheit & vbCrLf _
- & "Neueste geänderte Datei in angegebenem Intervall: " & sNewestFile
- Else
- WScript.echo "Gewähltes Intervall: " & intTime & " " & Zeiteinheit & vbCrLf _
- & "Keine geänderte Datei in angegebenem Intervall gefunden."
- 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“ ()