Ankündigung

Einklappen
Keine Ankündigung bisher.

Probelm mit VBS Scribt

Einklappen
X
 
  • Filter
  • Zeit
  • Anzeigen
Alles löschen
neue Beiträge

  • Probelm mit VBS Scribt

    Hallo Freunde

    Habe kleines Problem mit einem Scribt habe warscheindlich "Schrott" geschriben. Kann mir jemand weiterhelfenen.

    Gruss Koni



    '================================================= =========================
    '
    ' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 3.1
    '
    ' NAME: Shared.vbs
    '
    ' AUTHOR: Konard Dambeck
    ' DATE : 19.11.2004
    '
    ' COMMENT: Dieses Ding Löscht alte dateien
    '
    '================================================= =========================


    Verzeichnis = "D:\test" ' Hier wird gelöscht!
    Aufheben = 7 ' Anzahl der Tage


    Set fso = CreateObject("Scripting.FileSystemObject")
    Set ordner = fso.GetFolder(Verzeichnis)
    heute = Date()
    DeleteInFolder(ordner)

    Sub DeleteInFolder(ordner)
    Set dateien = ordner.Files
    ' Alle Dateien in diesem Ordner abklappern
    For Each datei In dateien
    If datei.DateLastModified < (heute - Aufheben) Then
    datei.Delete
    End If
    Next
    Set untere = ordner.SubFolders
    'Unterordner abklappern, DeleteInFolder rekursiv aufrufen
    For Each unter In untere
    DeleteInFolder(unter)
    Next
    End Sub

  • #2
    Das Scribt sollte alle dateien im Ordner D:\Test loschen welche alter als 7 Tage sind,

    Gruss Koni

    Kommentar

    Lädt...
    X