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

• sonar addikt

  #188

  #187 ArchElf

  2009-12-16 11:25:46

  Új Válasz

  Ú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

  

  sonar

  addikt

  #187 ArchElf

  #187 ArchElf

  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.

  Még nem foglalkoztam vbs-vel, van róla vmi jó doksid? Esetleg link?
  (Ha nem public jöhet priviben is)
  

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