Per Batch automatisch Dateien vom Vormonat mit rar komprimieren

@echo off & setlocal 

set "Quelle=U:\Daten_L\Datenpool\Komprimier_Test\Daten\*.*"   
set "Ziel=U:\Daten_L\Datenpool\Komprimier_Test\Monate"   
set "Log=U:\Daten_L\Datenpool\Komprimier_Test\Daten\test.log"   

::for /d %%i in ("%Ziel%\*.*") do rd "%%i"  

for /f "tokens=1-3 delims=. " %%a in ("%date%") do set "MonatAktuell=%%c-%%b"   
del "%Log%" 2>nul   
for %%i in ("%Quelle%") do for /f "tokens=1-3 delims=. " %%a in ("%%~ti") do if "%%c-%%b" neq "%MonatAktuell%" (   
md "%Ziel%\%%c-%%b\" 2>nul   
move "%%i" "%Ziel%\%%c-%%b\" && >>"%Log%" echo "%%i" nach "%Ziel%\%%c-%%b" verschoben || echo Fehler beim Verschieben von "%%i" aufgetreten!  
) 

echo Die Daten wurden verschoben! 
echo. 

pushd "%Ziel%"   
for /d %%i in (*.*) do C:\Programme\WinRAR\WinRAR.exe m -ep -ilog%Ziel%\Error.log "%%i.rar" "%%i\*.*" && (echo Bei "%%i" alles OK! & rd "%%i") || echo Fehler beim Packen von "%%i" aufgetreten!  
popd 
echo. 


echo Daten wurden archiviert!

@echo off & setlocal

:: set the temp file location
set tempmail=%temp%\tempmail.%random%.txt

:: echo the basic headers to the temp file
echo To: "Scripting Test" ^<test@paulsadowski.com^> > %tempmail%  
echo From: "Me" ^<me@my.com^> >> %tempmail%  
echo Subject: Test2 >> %tempmail%

:: echo the blank line that separates the header from the body text
echo.>>%tempmail%

:: echo the body text to the temp file
echo First line of body text.>> %tempmail%
echo Second line of body text.>> %tempmail%

:: move the temp file to the mail pickup directory
:: adjust this location for your system
move %tempmail% c:\inetpub\mailroot\pickup
set tempmail=
endlocal 

@echo on & setlocal  
 
set "Quelle=U:\Daten_L\Datenpool\Komprimier_Test\Daten\*.*"    
set "Ziel=U:\Daten_L\Datenpool\Komprimier_Test\Monate"    
set "Log=U:\Daten_L\Datenpool\Komprimier_Test\Verlauf.log"    
set "Err=U:\Daten_L\Datenpool\Komprimier_Test\Fehler.log"   
 
::for /d %%i in ("%Ziel%\*.*") do rd "%%i"   
 
for /f "tokens=1-3 delims=. " %%a in ("%date%") do set "MonatAktuell=%%c-%%b"    
del "%Log%" 2>nul    
del "%Err%" 2>nul   
for %%i in ("%Quelle%") do for /f "tokens=1-3 delims=. " %%a in ("%%~ti") do if "%%c-%%b" neq "%MonatAktuell%" (    
md "%Ziel%\%%c-%%b\" 2>nul    
move "%%i" "%Ziel%\%%c-%%b\" && (   
    >>"%Log%" echo "%%i" nach "%Ziel%\%%c-%%b" verschoben   
) || ( 
    >>"%Log%" echo Fehler beim Verschieben von "%%i" aufgetreten!   
    >>"%Err%" echo Fehler beim Verschieben von "%%i" aufgetreten!   
)  
 
echo Die Daten wurden verschoben!  
echo.  
 
pushd "%Ziel%"    
for /d %%i in (*.*) do C:\Programme\WinRAR\WinRAR.exe m -ep -ilog%Err% "%%i.rar" "%%i\*.*" && (   
    >>"%Log%" echo Bei "%%i" alles OK!   
    rd "%%i"   
) || ( 
    >>"%Log%" echo Fehler beim Packen von "%%i" aufgetreten!   
    >>"%Err%" echo Fehler beim Packen von "%%i" aufgetreten!   
) 
popd 
 
echo.  
echo Daten wurden archiviert! 
 
if exist "%Err%" (   
    REM Mail senden 
)

@echo off & setlocal  

MAPISRVR -u "EXCHGCL3.genag.de" -r ext.l.l@email.com -s "Test Beispiel Betreff?" -m "Testbeispiel für Inhalt"  

@echo off & setlocal  
set "Quelle=C:\Programme\Microsoft Office\Office11"    

"%Quelle%\Outlook.exe" /c ipm.note /m "person@email.com"   

VBScript'==========================================================================  
'  
' NAME: MailUsingOutlook.vbs  
'  
' COMMENT: This script generates an e-mail using the Outlook client.  
'  
'==========================================================================  

'Create an Outlook object  
Dim Outlook 'As New Outlook.Application  
Set Outlook = CreateObject("Outlook.Application")  
  
'Create e new message  
Dim Message 'As Outlook.MailItem  
Set Message = Outlook.CreateItem(olMailItem)
With Message
	.Subject = "Important message from a script!"  
	.Body = "This message was generated from a script using the Outlook client."  

	'Set destination email address  
	.Recipients.Add ("k.myer@fabrikam.com")  

	'Set sender address.  
	Const olOriginator = 0
	.Recipients.Add("sysadmin@fabrikam.com").Type = olOriginator  
	.Recipients.ResolveAll

	'Send the Message  
	.Send
End With

Const olByValue = 1
Const olMailItem = 0
    
Dim oOApp 
Dim oOMail

Set oOApp = CreateObject("Outlook.Application")  
Set oOMail = oOApp.CreateItem(olMailItem)

With oOMail
    .To = "ext.d.wiggins@rheinenergie.com"  
    .Subject = "Dies ist der Betreff"  
    .Body = "Bei der Archivierung der Daten ist ein Fehler aufgetreten."  
    .Attachments.Add "U:\Daten_L\Datenpool\Komprimier_Test\Fehler.log", olByValue, 1  
    .Send
End With

Const olByValue = 1
Const olMailItem = 0
    
Dim oOApp 
Dim oOMail

Set oOApp = CreateObject("Outlook.Application")  
Set oOMail = oOApp.CreateItem(olMailItem)
Set Attach = WScript.Arguments(0)

With oOMail
    .To = "email@email.com"  
    .Subject = "Fehlermeldung - Bitte prüfen!"  
    .Body = "Bei der Archivierung der Daten ist ein Fehler aufgetreten."  
    '.Attachments.Add "U:\Daten_L\Datenpool\Komprimier_Test\Fehler.log", olByValue, 1  
	.Attachments.Add Attach
    .Send
End With

@echo off & setlocal  
 
set "Quelle=U:\Daten_L\Datenpool\Komprimier_Test\Daten\*.*"    
set "Ziel=U:\Daten_L\Datenpool\Komprimier_Test\Monate"    
set "Log=U:\Daten_L\Datenpool\Komprimier_Test\Verlauf.log"    
set "Err=U:\Daten_L\Datenpool\Komprimier_Test\Fehler.log"   
set "Msg=U:\Daten_L\Datenpool\Komprimier_Test\MailService.vbs"  
 
::for /d %%i in ("%Ziel%\*.*") do rd "%%i"   
 
for /f "tokens=1-3 delims=. " %%a in ("%date%") do set "MonatAktuell=%%c-%%b"    
del "%Log%" 2>nul    
del "%Err%" 2>nul   
for %%i in ("%Quelle%") do for /f "tokens=1-3 delims=. " %%a in ("%%~ti") do if "%%c-%%b" neq "%MonatAktuell%" (    
md "%Ziel%\%%c-%%b\" 2>nul    
move "%%i" "%Ziel%\%%c-%%b\" && (   
    >>"%Log%" echo "%%i" nach "%Ziel%\%%c-%%b" verschoben   
echo.
echo Daten wurden verschoben! 
) || ( 
    >>"%Log%" echo Fehler beim Verschieben von "%%i" aufgetreten!   
    >>"%Err%" echo Fehler beim Verschieben von "%%i" aufgetreten!   
echo.
echo Datei "%%i" konnten nicht verschoben werden!   
	)  
)
 
pushd "%Ziel%"    
for /d %%i in (*.*) do C:\Programme\WinRAR\WinRAR.exe m -ep -ilog%Err% "%%i.rar" "%%i\*.*" && (   
    >>"%Log%" echo "%%i" wurde erfolgreich komprimiert!   
    rd "%%i"   
echo.
echo Daten wurden archiviert! 
) || ( 
    >>"%Log%" echo Fehler beim Packen von "%%i" aufgetreten!   
    >>"%Err%" echo Fehler beim Packen von "%%i" aufgetreten!   
echo.
echo Datei "%%i" konnten nicht archiviert werden!   
) 
popd 

if exist "%Err%" (   
   ::U:\Daten_L\Datenpool\Komprimier_Test\MailService.vbs
   cscript //nologo %Msg% "%Err%"  
)

@echo off & setlocal  
 
::set "Quelle=U:\Daten_L\Datenpool\Komprimier_Test\Daten\*.*"    
::set "Ziel=U:\Daten_L\Datenpool\Komprimier_Test\Monate"    

set "Quelle=W:\hPFC-Tool\Out\EHS\Archiv\*.*"    
set "Ziel=W:\hPFC-Tool\Out\EHS\Monate"    

::set "Quelle=W:\hPFC-Tool\Out\IPM\done\*.*"    
::set "Ziel=W:\hPFC-Tool\Out\IPM\Monate"    

::set "Quelle=W:\hPFC-Tool\Out\RETweb\Kurzfristprognose\Archiv\*.*"    
::set "Ziel=W:\hPFC-Tool\Out\RETweb\Kurzfristprognose\Monate"    

::set "Quelle=W:\hPFC-Tool\Out\RETweb\Prognose\*.*"    
::set "Ziel=W:\hPFC-Tool\Out\RETweb\Prognose\Monate"    

::set "Quelle=W:\hPFC-Tool\Out\RETweb\IntradayAfterday\Archiv\*.*"    
::set "Ziel=W:\hPFC-Tool\Out\RETweb\IntradayAfterday\Monate"   

::set "Quelle=W:\hPFC-Tool\Out\DM\Archiv\*.*"    
::set "Ziel=W:\hPFC-Tool\Out\DM\Monate"    

::set "Quelle=W:\hPFC-Tool\Out\RETweb\Back2Back\Old\*.*"    
::set "Ziel=W:\hPFC-Tool\Out\RETweb\Back2Back\Monate"   

set "Log=U:\Daten_L\Datenpool\Komprimier_Test\Verlauf.log"    
set "Err=U:\Daten_L\Datenpool\Komprimier_Test\Fehler.log"   
set "Msg=U:\Daten_L\Datenpool\Komprimier_Test\MailService.vbs"  
 
::for /d %%i in ("%Ziel%\*.*") do rd "%%i"   
 
for /f "tokens=1-3 delims=. " %%a in ("%date%") do set "MonatAktuell=%%c-%%b"    
del "%Log%" 2>nul    
del "%Err%" 2>nul   
for %%i in ("%Quelle%") do for /f "tokens=1-3 delims=. " %%a in ("%%~ti") do if "%%c-%%b" neq "%MonatAktuell%" (    
md "%Ziel%\%%c-%%b\" 2>nul    
move "%%i" "%Ziel%\%%c-%%b\" && (   
    >>"%Log%" echo "%%i" nach "%Ziel%\%%c-%%b" verschoben   
echo.
echo Daten wurden verschoben! 
) || ( 
    >>"%Log%" echo Fehler beim Verschieben von "%%i" aufgetreten!   
    >>"%Err%" echo Fehler beim Verschieben von "%%i" aufgetreten!   
echo.
echo Datei "%%i" konnten nicht verschoben werden!   
	)  
)
 
pushd "%Ziel%"    
for /d %%i in (*.*) do C:\Programme\WinRAR\WinRAR.exe m -ep -ilog%Err% "%%i.rar" "%%i\*.*" && (   
    >>"%Log%" echo "%%i" wurde erfolgreich komprimiert!   
    rd "%%i"   
echo.
echo Daten wurden archiviert! 
) || ( 
    >>"%Log%" echo Fehler beim Packen von "%%i" aufgetreten!   
    >>"%Err%" echo Fehler beim Packen von "%%i" aufgetreten!   
echo.
echo Datei "%%i" konnten nicht archiviert werden!   
) 
popd 

if exist "%Err%" (   
   ::U:\Daten_L\Datenpool\Komprimier_Test\MailService.vbs
   cscript //nologo %Msg% "%Err%"  
)

W:\DM\Out\Bestellbestaetigung\Gas\*.*§W:\DM\Out\Bestellbestaetigung\Gas\Archiv

W:\DM\Out\Bestellbestaetigung\Strom\*.*§W:\DM\Out\Bestellbestaetigung\Strom\Archiv

W:\DM\Out\EHS\Ablage\done\*.*§W:\DM\Out\EHS\Ablage\done\Archiv

W:\DM\Out\iOPT\Original\Done\*.*§W:\DM\Out\iOPT\Original\Done\Archiv

W:\hPFC-Tool\Out\DM\*.*§W:\hPFC-Tool\Out\DM\Archiv

@echo off & setlocal   

set "Delim=§"   
set "Pfade=U:\Daten_L\Datenpool\Komprimier_Test\Pfade.txt"   
set "Log=U:\Daten_L\Datenpool\Komprimier_Test\Verlauf.log"     
set "Err=U:\Daten_L\Datenpool\Komprimier_Test\Fehler.log"    
set "Msg=U:\Daten_L\Datenpool\Komprimier_Test\MailService.vbs"   

set /a Vormonate=1 
 
for /f "tokens=1-3 delims=. " %%a in ("%date%") do set "Monat=1%%b" & set "Jahr=%%c"   
set /a Monat-=%Vormonate% 
if %Monat% leq 101 ( 
    set /a Monat+=12 
    set /a Jahr-=1 
) 
set "MonatAktuell=%Jahr%-%Monat:~-2%"   

del "%Log%" 2>nul   
del "%Err%" 2>nul   
 
:: Zusaetzliche Schleife über alle Zeilen der "Pfade"-Datei  
:: %Quelle% wird dabei durch %%q\*.* und %Ziel% durch %%r ersetzt 
for /f "usebackq tokens=1-2 delims=%Delim%" %%q in ("%Pfade%") do (   
    REM Nur bearbeiten, wenn auch ein Zielpfad vorhanden ist 
    if "%%r" neq "" (   
        for %%i in ("%%q\*.*") do for /f "tokens=1-3 delims=. " %%a in ("%%~ti") do if "%%c-%%b" neq "%MonatAktuell%" (   
            md "%%r\%%c-%%b\" 2>nul   
            move "%%i" "%%r\%%c-%%b\" && (   
                >>"%Log%" echo "%%i" nach "%%r\%%c-%%b" verschoben   
                echo. 
                echo Daten wurden verschoben! 
            ) || ( 
                >>"%Log%" echo Fehler beim Verschieben von "%%~fi" aufgetreten!   
                >>"%Err%" echo Fehler beim Verschieben von "%%~fi" aufgetreten!   
                echo. 
                echo Datei "%%~fi" konnten nicht verschoben werden!   
            ) 
        ) 
 
        pushd "%%r"   
        for /d %%i in (*.*) do C:\Programme\WinRAR\WinRAR.exe m -ep -ilog%Err% "%%i.rar" "%%i\*.*" && (   
            >>"%Log%" echo "%%~fi" wurde erfolgreich komprimiert!   
            rd "%%i"   
            echo. 
            echo Daten wurden archiviert! 
        ) || ( 
            >>"%Log%" echo Fehler beim Packen von "%%~fi" aufgetreten!   
            >>"%Err%" echo Fehler beim Packen von "%%~fi" aufgetreten!   
            echo. 
            echo Dateien in "%%~fi" konnten nicht archiviert werden!   
        ) 
        popd 
    ) 
) 
 
if exist "%Err%" (    
   cscript //nologo %Msg% "%Err%"   
)

@echo off & setlocal   

set "Delim=§"   
set "Pfade=U:\Daten_L\Datenpool\Komprimier_Test\Pfade.txt"   
set "Log=U:\Daten_L\Datenpool\Komprimier_Test\Verlauf.log"     
set "Err=U:\Daten_L\Datenpool\Komprimier_Test\Fehler.log"    
set "Msg=U:\Daten_L\Datenpool\Komprimier_Test\MailService.vbs"   

set /a Vormonate=1 
 
for /f "tokens=1-3 delims=. " %%a in ("%date%") do set "Monat=1%%b" & set "Jahr=%%c"   
set /a Monat-=%Vormonate% 
if %Monat% leq 101 ( 
    set /a Monat+=12 
    set /a Jahr-=1 
) 
set "MonatAktuell=%Jahr%-%Monat:~-2%"   

del "%Log%" 2>nul   
del "%Err%" 2>nul   
 
:: Zusaetzliche Schleife über alle Zeilen der "Pfade"-Datei  
:: %Quelle% wird dabei durch %%q\*.* und %Ziel% durch %%r ersetzt 
for /f "usebackq tokens=1-2 delims=%Delim%" %%q in ("%Pfade%") do (   
    REM Nur bearbeiten, wenn auch ein Zielpfad vorhanden ist 
    if "%%r" neq "" (   
        for %%i in ("%%q\*.*") do for /f "tokens=1-3 delims=. " %%a in ("%%~ti") do if "%%c-%%b" neq "%MonatAktuell%" (   
            md "%%r\%%c-%%b\" 2>nul   
            move "%%i" "%%r\%%c-%%b\" && (   
                >>"%Log%" echo "%%i" nach "%%r\%%c-%%b" verschoben   
                echo. 
                echo Daten wurden verschoben! 
            ) || ( 
                >>"%Log%" echo Fehler beim Verschieben von "%%~fi" aufgetreten!   
                >>"%Err%" echo Fehler beim Verschieben von "%%~fi" aufgetreten!   
                echo. 
                echo Datei "%%~fi" konnten nicht verschoben werden!   
            ) 
        ) 
 
if exist "%%r" (   
            pushd "%%r"   
            for /d %%i in (*.*) do C:\Programme\WinRAR\WinRAR.exe m -ep -ilog%Err% "%%i.rar" "%%i\*.*" && (    
                >>"%Log%" echo "%%~fi" wurde erfolgreich komprimiert!    
                rd "%%i"    
                echo.  
                echo Daten wurden archiviert!  
            ) || (  
                >>"%Log%" echo Fehler beim Packen von "%%~fi" aufgetreten!    
                >>"%Err%" echo Fehler beim Packen von "%%~fi" aufgetreten!    
                echo.  
                echo Dateien in "%%~fi" konnten nicht archiviert werden!    
            )  
            popd 
        )
    

 
if exist "%Err%" (    
   cscript //nologo %Msg% "%Err%"   
)

if exist "%%r" (   
            pushd "%%r"   
            for /d %%i in (*.*) do C:\Programme\WinRAR\WinRAR.exe m -ep -ilog%Err% "%%i.rar" "%%i\*.*" && (    
                >>"%Log%" echo "%%~fi" wurde erfolgreich komprimiert!    
                rd "%%i"    
                echo.  
                echo Daten wurden archiviert!  
            ) || (  
                >>"%Log%" echo Fehler beim Packen von "%%~fi" aufgetreten!    
                >>"%Err%" echo Fehler beim Packen von "%%~fi" aufgetreten!    
                echo.  
                echo Dateien in "%%~fi" konnten nicht archiviert werden!    
            )  
	popd )
))

W:\DM\Out\Bestellbestaetigung\Gas\*.*§W:\DM\Out\Bestellbestaetigung\Gas\Archiv

U:\Daten_L\Datenpool\Komprimier_Test\Daten\*.*§U:\Daten_L\Datenpool\Komprimier_Test\Archiv

W:\DM\Out\Bestellbestaetigung\Strom\*.*§W:\DM\Out\Bestellbestaetigung\Strom\Archiv

W:\DM\Out\EHS\Ablage\done\*.*§W:\DM\Out\EHS\Ablage\done\Archiv

::---CopyVonHeute.bat 
@echo off & setlocal 
set "Quelle=\\server1\rechner1\*.csv"    
set "Ziel=\\server2\rechner2\test"    

echo wscript.echo dateAdd("d", date())>%temp%\Heute.vbs   
For /f %%i in ('cscript //nologo %temp%\Heute.vbs') do set "Heute=%%i"   
del %temp%\Heute.vbs 
@for /f "tokens=4,*" %%i in ('dir /A:-d "%Quelle%" ^|find "%Heute%"') do copy "%Quelle%\%%i" "%Ziel%"   
::----CopyVonHeute.vbs