🚀 go-pugleaf

Użytkownik "Tomasz" <wytnij@wp.pl> napisał w wiadomości 
news:g10hpf$1sk$1@news2.task.gda.pl...
> 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?
>

Pewnie najwięcej czasu trwa kopiowanie plików do TEMP. Zachowując obecny 
schemat można zamienić "xcopy" na "move".
W tym przypadku następuje tylko modyfikacja informacji o położeniu pliku a 
nie wykonanie jego fizycznej kopii.

-- 
Chopin
"Gdynia Moje Miasto"
stawnanet@wUpE.pEEl 

Użytkownik "Chopin" <stawnanet@wUpE.pEEl> napisał w wiadomości

> Pewnie najwięcej czasu trwa kopiowanie plików do TEMP. Zachowując obecny 
> schemat można zamienić "xcopy" na "move".
> W tym przypadku następuje tylko modyfikacja informacji o położeniu pliku a 
> nie wykonanie jego fizycznej kopii.


Tak, 99% czasu zajmuje "xcopy".
Niestety polecenie "move" nie ma parametrów umożliwiających przesuwanie 
plików o określonej dacie - stąd te moje kombinacje...

-- 
Pozdrawiam
Tomasz 

Z pamiętnika internauty.
Własność: 'Tomasz' 
Wpis z dnia 21-05-2008:

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

Total Commander - zaawansowane wyszukiwanie

-- 
TomaSz.
http://www.kociezycie.net

Użytkownik "TomaSz." <usenet_mail@op.pl> napisał w wiadomości 
news:rbvj9ogx83zz$.dlg@usenet.mail.op.pl...
> Total Commander - zaawansowane wyszukiwanie


Lubię Total Commandera, ale nie chce mi się tego codziennie robić ręcznie :)

Wszystkie dotychczasowe czynności zostały już zautomatyzowane dzięki plikom 
BAT - pozostało już tylko to usuwanie...

-- 
Pozdrawiam
Tomasz 

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

-- 
pozdrawiam
piotr

Dnia Wed, 21 May 2008 18:33:53 +0200, Piotr Kuliński napisał(a):

> 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

http://sourceforge.net/project/showfiles.php?group_id=9328
Może to pomoże...


-- 
piecia aka dracorp

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

Tomasz <wytnij@wp.pl> napisał(a):
> 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?

Radzę zostawić prehistorycznego bata i zainteresować się PowerShellem. 
Omawianą czynność można zrobić w jednej linijce:
ls *.zip, *.cbk | where-object {$_.lastwritetime -lt (get-date).date} | 
foreach {rm $_}

-- 
Grzegorz Niemirowski
http://www.grzegorz.net/
OE PowerTool i aktualności ze świata Outlook Express: grzegorz.net/oe
Uptime: 7 days, 7 hours, 4 minutes and 24 seconds 

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- 

Użytkownik "Grzegorz Niemirowski" <gnthexfiles@poczta.onet.pl> napisał
>
> Radzę zostawić prehistorycznego bata i zainteresować się PowerShellem. 
> Omawianą czynność można zrobić w jednej linijce:
> ls *.zip, *.cbk | where-object {$_.lastwritetime -lt (get-date).date} | 
> foreach {rm $_}


Stary BAT ma tą zaletę, że nie trzeba go nigdzie instalować ;-)

-- 
Pozdrawiam
-Tomek- 

Dnia Mon, 26 May 2008 06:39:15 +0200, Tomasz napisał(a):

> Stary BAT ma tą zaletę, że nie trzeba go nigdzie instalować ;-)

Zaleta używania starego programu :)


-- 
piecia aka dracorp

Tomasz <wytnij@wp.pl> napisał(a):
> Stary BAT ma tą zaletę, że nie trzeba go nigdzie instalować ;-)

Jedna zaleta i tysiące wad :)

-- 
Grzegorz Niemirowski
http://www.grzegorz.net/
OE PowerTool i aktualności ze świata Outlook Express: grzegorz.net/oe
Uptime: 1 day, 15 hours, 54 minutes and 30 seconds 

Użytkownik "Grzegorz Niemirowski"

> -- 
> Grzegorz Niemirowski
> http://www.grzegorz.net/


Ty jesteś autorem strony grzegorz.net?
Korzystałem z niej wiele razy! Mało jest stron poświęconych OE. Twoja dużo 
wnosi :)

-- 
Pozdrawiam
Tomasz
http://www.shitsoft.net/ 

Tomasz <wytnij@wp.pl> napisał(a):
> Ty jesteś autorem strony grzegorz.net?
> Korzystałem z niej wiele razy! Mało jest stron poświęconych OE. Twoja
> dużo  wnosi :)

Tak, to ja :) Cieszę się, że się komuś przydała :)

-- 
Grzegorz Niemirowski
http://www.grzegorz.net/
OE PowerTool i aktualności ze świata Outlook Express: grzegorz.net/oe
Uptime: 3 days, 14 hours, 44 minutes and 31 seconds 

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

Mon, 26 May 2008 14:28:38 +0200, na alt.pl.comp.os.windowsxp, Grzegorz
Niemirowski napisał(a):

> Tomasz <wytnij@wp.pl> napisał(a):
>> Stary BAT ma tą zaletę, że nie trzeba go nigdzie instalować ;-)
> 
> Jedna zaleta i tysiące wad :)

może i tysiące wad, ale też duża prostota

PowerShell strasznie zagmatwany - tak z ciekawości dlaczego nie jest
dorzucony w SP2, przecież implementuje vbscript, obsługuje WMI i ma
wszystko co stary BPL?

brakuje czegoś prostego i szybiego takie coś ala bash lu sh

ale do taki podstawowych operacji...
wystarczy zupełnie stary BPL i Windows Resource Kid Tools

-- 
pozdrawiam, GG i SkyPe w X-nagłówku posta, e-mail: zmień wpw na wp
piotr

Użytkownik "Piotr Kulinski" <piotr_kulinski@wpw.pl>
>> '-----------
>> 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


Gdy wpiszę: Msgbox Date
To wyświetla mi się komunikat z datą sformatowaną.

Poza tym zamiast "objItem.Month", można użyć "Month(Date)". To skróci ilość 
kodu, bo nie będzie potrzebne tworzenie dodatkowych obiektów :)

-- 
Pozdrawiam
-Tomek- 

Piotr Kulinski <piotr_kulinski@wpw.pl> napisał(a):
> może i tysiące wad, ale też duża prostota
> PowerShell strasznie zagmatwany - tak z ciekawości dlaczego nie jest
> dorzucony w SP2, przecież implementuje vbscript, obsługuje WMI i ma
> wszystko co stary BPL?
> brakuje czegoś prostego i szybiego takie coś ala bash lu sh
> ale do taki podstawowych operacji...
> wystarczy zupełnie stary BPL i Windows Resource Kid Tools

Przecież PowerShell jest prosty, widać to bardzo dobrze na omawianym 
przykładzie. Ilość kodu jest o wiele mniejsza i jest on bardziej intuicyjny. 
A z basha przecież PS dużo zapożyczył, podobnie jak z perla. Nie wiem o co 
chodzi z SP2. SP2 do Windows XP został wydany przed premierą PS, poza tym z 
reguły SP nie wnoszą nowego oprogramowania. Nie wiem co to jest BPL.

-- 
Grzegorz Niemirowski
http://www.grzegorz.net/
OE PowerTool i aktualności ze świata Outlook Express: grzegorz.net/oe
Uptime: 0 days, 0 hours, 3 minutes and 48 seconds 

Sun, 1 Jun 2008 21:03:51 +0200, na alt.pl.comp.os.windowsxp, Grzegorz
Niemirowski napisał(a):

> Piotr Kulinski <piotr_kulinski@wpw.pl> napisał(a):
>> może i tysiące wad, ale też duża prostota
>> PowerShell strasznie zagmatwany - tak z ciekawości dlaczego nie jest
>> dorzucony w SP2, przecież implementuje vbscript, obsługuje WMI i ma
>> wszystko co stary BPL?
>> brakuje czegoś prostego i szybiego takie coś ala bash lu sh
>> ale do taki podstawowych operacji...
>> wystarczy zupełnie stary BPL i Windows Resource Kid Tools
> 
> Przecież PowerShell jest prosty, widać to bardzo dobrze na omawianym 
> przykładzie. Ilość kodu jest o wiele mniejsza i jest on bardziej intuicyjny. 
> A z basha przecież PS dużo zapożyczył, podobnie jak z perla. Nie wiem o co 
> chodzi z SP2. SP2 do Windows XP został wydany przed premierą PS, poza tym z 
> reguły SP nie wnoszą nowego oprogramowania. Nie wiem co to jest BPL.

Co do prostoty to rzecz względna.
BPL (Batch Programming Language) zawsze jest zaimplementowany, choćby w
Vista. Nie sprawdzałem czy PS też jest w Viście i czy jest on już
zintegrowany czy trzeba doinstalowywać.
Co do integracji s SP2/SP3 to się zgadzam.

-- 
pozdrawiam, GG i SkyPe w X-nagłówku posta, e-mail: zmień wpw na wp
piotr

W dniu środa, 21 maja 2008 09:08:22 UTC+2 użytkownik Tomasz napisał:
> 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?
> 
> -- 
> Pozdrawiam
> Tomasz

Witam, 
chciałbym się podpiąć pod temat. 

Raportuj | Popraw błędy
#1 26 Kwi 2018 14:55

Witam,
próbuje stworzyć plik .BAT, który miałby za zadanie usunięcie plików starszych o 30 min w danym katalogu. Stworzyłem

forfiles /p "C:\Skany" /s /m *.* /c "cmd /c Del @path"

i ustawiłem go w Harmonogramie zadań tak aby działa co 30 min ale to nie spełnia moich oczekiwań ponieważ jeśli ustawie zadanie od 7:30 więc skrypt będzie działać co 30 min i będzie również usuwać dokumenty, które zostały stworzone np. 7:54 (o 8:00 skasuje wszystko). Jest jakaś metoda na to?
Pozdrawiam