🚀 go-pugleaf

Mon, 26 May 2008 06:38:37 +0200, na alt.pl.comp.os.windowsxp, Tomasz
napisał(a):

> 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
> '-----------

tak na szybko napisałem sformatowanie aktualnej daty
może znasz jakąś metodę aby pobrać odrazu sformatowaną date, ja się nei
zagłębiałem
-- 
pozdrawiam, GG i SkyPe w X-nagłówku posta, e-mail: zmień wpw na wp
piotr