locked
Törlés attribútum alapján

    Question

  •  

    Sziasztok!

     

    Komoly programozói múlttal rendelkező rendszergazdáknak kellene egy nagyon egyszerű segítség.

    Adott egy VB szkript, ami a 7 napnál régebbi fájlokat törli egy könyvtárból.

     

    A kérdés, hogyan kellene kiterjeszteni az MsgBox-ot az Igen/Nem lehetőségen kívül kilépéssel is, hogy amikor 500 fájlra kezd el futni, és nem akarjuk végigcsinálni, ne kelljen egyesével a No-t nyomogatni, amíg a végére ér. Illetve emiatt mi TaskManager-ből lőjük ki!

     

    Szkript:

     

    iDaysOld = 7
    strPath = "C:\Teszt"

    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objFolder = objFSO.GetFolder(strPath)
    Set colSubfolders = objFolder.Subfolders
    Set colFiles = objFolder.Files

    For Each objFile in colFiles
       If objFile.DateLastModified < (Date() - iDaysOld) Then
        Dim Reply
       Do
        Reply = MsgBox("Biztosan törlöd ezt a fájlt? : " & objFile.Name & vbCrLf , 4 + 32, "Fájok törlése")
        If Reply = 6 Then
         objFile.Delete
         Reply = 7
        End If 
        Loop Until Reply = 7     
        End If
    Next

     

    Tuesday, September 30, 2008 11:19 AM

Answers

All replies