Törlés attribútum alapján

• Question

• 

  

  0

  Sign in to vote

   

  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