Új hozzászólás Aktív témák

• #186 ArchElf addikt sonar #185

  Új Válasz 2009-12-16 08:07:55 #186

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  Privát üzenet küldése

  

  ArchElf

  addikt

  válasz sonar #185 üzenetére

  VBS jóval egyszerűbb volna, mint a sima batch.

  Set objArgs = WScript.Arguments
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set fslog = fso.OpenTextFile("c:\dellog.txt", 8, True, -1)
  
  '4 nappal korábbi dátum
  DelDate = DateAdd("m", -4, Date)
  
  For Each fF In objArgs
  On Error Goto eh:
  Set Folder = fso.GetFolder(fF)
  Set fFiles = folder.Files
  For Each file In fFiles
  If (file.DateLastModified < DelDate) Then
  file.Delete(True)
  fslog.WriteLine "Törölve: "& file.Path
  End If
  Next
  Goto ehe:
  eh:
  fslog.WriteLine "Hibás könyvtárnév: " & fF
  ehe:
  Next
  fslog.Close

  Remélem nincs benne hiba...

  AE

Új hozzászólás Aktív témák