usuwanie plików starszych niż...

Napisałem krótki skrypt przeszukujący katalogi w poszukiwaniu plików starszych niż np. 10 dni.

Zależności: aplikacja Forfiles.exe

Skrypt:

()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()

REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @@Skrypt czyści wszystkie stare pliki *.* z kat. @@
REM @@domowych użytkowników @@
REM @@Copyright by Piotr Kurzeja 2007 @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @ USTAWIAM dysk który mam przeszukiwać @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
SET USERDRIVE=u

REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @ USTAWIAM katalog wynikowy @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
SET OUTDIR=prny

REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @ USTAWIAM plik log-a -- lista katalogów domowych @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
SET USERLOG=users.log

REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @ USTAWIAM plik log-a -- Przesunięte pliki do arch. @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
SET LOGFILE=files.log

REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @ %DAYS% - przenies pliki userow starsze niz ... @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
SET DAYS=7


REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @@USUWAM stary katalog wynikowy - w raze potrzeby @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

if exist %systemdrive%\%OUTDIR% (
rd /s /q %systemdrive%\%OUTDIR% >> %LOGFILE%
)

REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @@tworze nowy katalog wynikowy @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

md %systemdrive%\%OUTDIR%\ >> %LOGFILE%

REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @@Sprawdzam czy jest zmapowany dysk u: z danymi uz. @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
net use |find /I "%USERDRIVE%:"
echo %ERRORLEVEL%
IF %ERRORLEVEL% EQU 1 goto diskerr


rem echo off
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@
REM @@tworze liste katalogow uzytkownikow @@
REM @@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@@

dir %USERDRIVE%:\*.* /A:D /B /O:N > %USERLOG%

for /f "tokens=1" %%i in (%USERLOG%) do (

if exist %USERDRIVE%:\%%i\SomeDir\*.* (
echo %%i >> %LOGFILE%
md %systemdrive%\%OUTDIR%\%%i >> %LOGFILE%
forfiles -p%USERDRIVE%:\%%i\SomeDir -m*.* -d-%DAYS% -c"cmd /c move @FILE %systemdrive%\%OUTDIR%\%%i" >>%LOGFILE%
)

)

goto end

:diskerr
Echo Nie masz zmapowanego dysku %USERDRIVE%
Echo Zmapuj dysk i uruchom skrypt ponownie!!!

:end
pause

()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()()