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

• #187 ArchElf addikt ArchElf #186

  Új Válasz 2009-12-16 08:15:54 #187

  Ú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 ArchElf #186 üzenetére

  Volt benne pár hiba...

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

  AE

  mod: ráadásul 4 hónap volt, nem négy nap, ja és a kiiratás is a tényleges törlés elött legyen... no meg egy kis formázási gond is volt vele.

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