Bir yerde yedeklerim var son iki gün Usb disk kopyalama yolu. :)

Gönderen Konu: Bir yerde yedeklerim var son iki gün Usb disk kopyalama yolu. :)  (Okunma sayısı 1810 defa)

0 Üye ve 1 Ziyaretçi konuyu incelemekte.

Çevrimdışı ARSLAN_Aslan

  • LOGO Bayi
  • Logo Uzmanı
  • *****
  • Karma: 3
  • yazilimyeri.com
Arkadaşlar bir bat uzantılı dosya örneği.
Bu bat dosyası bir yerde yedekler var (zip,rar uzantılı ),
bu yedeklerde son iki günü başka yere kopyalamak için yazılmış çalışma.
set /A dd=%dd% - 2 parametresini değiştirerek kaç gün geriye giderek dosya kopyalayacağınızı belirleye bilirsiniz.

 
@echo off
for /f "tokens=1" %%i in ('date /t') do set thedate=%%i
set mm=%thedate:~3,2%
set dd=%thedate:~0,2%
set yyyy=%thedate:~6,4%
echo.
echo.
echo Bugun : %dd%-%mm%-%yyyy%
echo.
if %dd%==08 (set dd=8 ) else (if %dd%==09 (set dd=9 ) )
if %mm%==08 (set mm=8 ) else (if %mm%==09 (set mm=9 ) )
set /A dd=%dd% - 2
set /A mm=%mm% + 0
if /I %dd% GTR 0 goto DONE
set /A mm=%mm% - 1
if /I %mm% GTR 0 goto ADJUSTDAY
set /A mm=12
set /A yyyy=%yyyy% - 1
:ADJUSTDAY
if %mm%==1 goto SET31
if %mm%==2 goto LEAPCHK
if %mm%==3 goto SET31
if %mm%==4 goto SET30
if %mm%==5 goto SET31
if %mm%==6 goto SET30
if %mm%==7 goto SET31
if %mm%==8 goto SET31
if %mm%==9 goto SET30
if %mm%==10 goto SET31
if %mm%==11 goto SET30
if %mm%==12 goto SET31
goto ERROR
:SET31
set /A dd=31 + %dd%
goto DONE
:SET30
set /A dd=30 + %dd%
goto DONE
:LEAPCHK
set /A tt=%yyyy% %% 4
if not %tt%==0 goto SET28
set /A tt=%yyyy% %% 100
if not %tt%==0 goto SET29
set /A tt=%yyyy% %% 400
if %tt%==0 goto SET29
:SET28
set /A dd=28 + %dd%
goto DONE
:SET29
set /A dd=29 + %dd%
:DONE
if /i %dd% LSS 10 set dd=0%dd%
if /I %mm% LSS 10 set mm=0%mm%
set YedekTarih=%mm%-%dd%-%yyyy%
echo.
echo YedekTarih : %YedekTarih%
echo Yedek islemi Basladi %time%
echo.
set kaynak1=E:\yedekler
set hedef=Y:
set backupcmd= /Y /E /I /s /d:%YedekTarih%
xcopy %kaynak1%\LogoYedek\*.* %hedef%\Logo %backupcmd% > LogoYedek.out
echo Yedek islemi Bitti %time% !
pause

**Not tarih formatınıza göre ay gün yer değişikliği yapmanız gereke bilir.
Beliki ihtiyacı olan vardır :) kolay gelsin.


Çevrimdışı ByBirol®

  • Logo Sistem Administrator
  • Logo Uzmanı
  • *****
  • Karma: 18
  • admin@artibilisim.com Logo Çözüm Ortağı
Emegine saglık .