🚀 go-pugleaf

Użytkownik "Piotr Kuliński" <piotr_kulinski@wpw.pl> napisał
> 'Tu pełniejszy skrypt
>
> ' Kuliński Piotr, kasowanie plików na lokalnym komputerze z określonego 
> folderu
> ' gdzie data jest mniejsza od aktualnej
>
> strComputer = "."
> strPath="d:\temp"
>
> Set objWMIService = 
> GetObject("winmgmts:{impersonationLevel=impersonate}!\\" & strComputer & 
> "\root\cimv2")
> Set colItems = objWMIService.ExecQuery("Select * from Win32_UTCTime")
> For Each objItem in colItems
>
> dt_del=objItem.Year&"-"&right("0"&objItem.Month,2)&"-"&right("0"&objItem.Day,2)
> Next
>
>
> Set objFSO = CreateObject("Scripting.FileSystemObject")
>
> Set objShell = CreateObject ("Shell.Application")
> Set objFolder = objShell.Namespace (strPath)
> Set objFSO = CreateObject("Scripting.FileSystemObject")
>
> For Each strFileName in objFolder.Items
>     if (objFolder.GetDetailsOf (strFileName, 4) < (dt_del&" 00:00")) then
>        wscript.echo objFolder.GetDetailsOf (strFileName, 4)&" --> " & 
> strPath&"\"&strFileName
>        objFSO.DeleteFile(strPath&"\"&strFileName)
>     end if
> Next


Hej

Do czego służy ta część kodu?:

'-----------
Set objWMIService = ...
Set colItems = ...

For Each objItem in colItems
   dt_del=objItem.Year&"-"&right("0"&objItem.Month,2)&"-"&right("0"&objItem.Day,2)
Next
'-----------



-- 
Pozdrawiam
-Tomek-