🚀 go-pugleaf

Piotr Kuliński pisze:
> Tomasz pisze:
>> Witam
>>
>> Potrzebuję plik wsadowy, który usuwałby wszystkie pliki *.zip oraz 
>> *.cbk z danego katalogu oprócz tych plików, które są z dnia dzisiejszego.
>>
>> Stworzyłem na razie coś takiego:
>>
>> set rok=%date:~0,4%
>> set mies=%date:~5,2%
>> set dz=%date:~8,2%
>> xcopy *.zip "temp\" /F /Y /D:%mies%-%dz%-%rok%
>> xcopy *.cbk "temp\" /F /Y /D:%mies%-%dz%-%rok%
>> del *.zip
>> del *.cbk
>> move temp\*.* ".\"
>> rmdir /s /q temp\
>>
>>
>>
>> Metoda ta polega na kopiowaniu do katalogu tymczasowego (temp) plików 
>> z dzisiejszą datą, kasowaniu wszystkiego z katalogu bieżącego i 
>> przenoszeniu z powrotem tego co pozostało w katalogu tymczasowym.
>>
>> Ponieważ pliki są bardzo duże to wszystko dosyć długo trwa. Znacie 
>> może jakiś szybszy sposób?
>>
> dir *.tmp | findstr ^[%DATE%] > old_files.txt
> 
> to na początek, później ściągnij sed.exe w celu przetworzenia pliku i 
> wyciągnięcia nazw plików, albo użyj polecenia for z cięciem po kolumnach
> 

'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


-- 
pozdrawiam
Piotr Kuliński