Přihlášení

vbscript na mazani souboru starších daného data

Určitě jste někdy potřebovaly odmazat z nějaké složky soubory  starší daného data, například generované pdf...
Tento šikovný scriptík to řeší za Vás. Můžete ho pustit v plánovači a nechat ho běžet pravidelně.
Script se prostě hodí.
V systémech windows jsou soubory *.vbs automaticky asociované s programem "vb script host" který provádí vykonání scriptu.

  1. Option Explicit
  2. ' spoustejte jen na vlastni nebezpeci.
  3. dim pocetdnizpet : pocetdnizpet = Date() - 2
  4. dim cesta : cesta = "W:\mujadresar\"
  5.  
  6. ' Tenhle kousek kodu na danem umisteni smaze vsecky polozky v adresari a jeho podadresarich starsi daneho data.
  7. Function DirWalkEx(parmPath,dTwoWeeksAgo)
  8. Dim fso : Set fso = CreateObject("Scripting.FileSystemObject")
  9. Dim oSubFolder, oFolder, n
  10. dim pocetsmazanych
  11.  
  12. On Error Resume Next 'kdyz nejde smazat dem dal
  13. Set oSubFolder = fso.getfolder(parmPath)
  14. if fso.FolderExists(parmPath) then
  15. For Each oFolder In oSubFolder.SubFolders
  16. If Err.Number <> 0 Then ' if we got an error, just skip this entry
  17. Err.Clear
  18. elseIf oFolder.DateCreated < dTwoWeeksAgo Then
  19. 'Wscript.Echo oFolder.Path
  20. fso.DeleteFolder oFolder.Path, True
  21. pocetsmazanych=pocetsmazanych+1
  22. End If
  23. Next
  24. else
  25. Wscript.Echo "Adresar nebyl nalezen"
  26. end if
  27. DirWalkEx=pocetsmazanych
  28. On Error Goto 0 ' navrat k normalnimu error handleru
  29. End Function
  30.  
  31. call DirWalkEx(cesta,pocetdnizpet)

Komentáře

Poslat nový komentář

CAPTCHA
Tato otázka je pro testování jestli jste návštěvník nebo spam robot..
Obrázkové CAPTCHA
Vložte znaky zobrazené na obrázku.