Bat Datei zum Täglichen Download mit Aktuellem Datum im Datei Namen

@echo off & setlocal enabledelayedexpansion

::Wert(+/-) für Tage, Wochen, Monate und Jahre, mit dem ein Datum ermittelt werden soll
set /a Value=-1

:: Aktuelles Datum
set "DateStart=%Date%"  
::Aktuelles Datum in Jahre, Monate und Tage splitten
for /f %%i in ('WMIC PATH Win32_LocalTime GET Year^,Month^,Day /Value^|findstr .') do set /a %%i 2>nul||@echo Falsches Datumsformat! & goto:eof  
@echo Datum: !DateStart! (T=!Day! M=!Month! J=!Year!)
@echo.

call :SetDateOfDays
@echo !Value! Tage  : !DateResult!
call :SetDateOfWeeks
@echo !Value! Wochen: !DateResult!
call :SetDateOfMonths
@echo !Value! Monate: !DateResult!
call :SetDateOfYears
@echo !Value! Jahre : !DateResult!
goto :eof

::Berechnung mit Anzahl Tage
: SetDateOfDays
    call :SetDate !Year! !Month! !Day! !Value!
goto :eof

::Berechnung mit Anzahl Wochen
: SetDateOfWeeks
    set /a Number=Value*7
    call :SetDate !Year! !Month! !Day! !Number!
goto :eof

::Berechnung mit Anzahl Monate
: SetDateOfMonths
    set /a x=Year*12+Month+Value-1
    set /a xYY=x/12
    set /a xMM=x%%12+1
    ::Korrektur, wenn Tag > 28 auf Monat mit weniger Tagen trifft
    for /l %%i in (0,-1,-3) do call :SetDate !xYY! !xMM! !Day! %%i & if !xMM! EQU !XX! goto :eof
goto :eof

::Berechnung mit Anzahl Jahre
: SetDateOfYears
    set /a xYY=Year+Value
    call :SetDate !xYY! !Month! !Day! 0
goto :eof


:: Datum berechnen
:SetDate %1 %2 %3 %4
:: Quelle: Ritchie Lawrence
    :: Func: Date from a Modified Julian Day.
    ::       Date (Day 0) is Wednesday 17th November 1858.
    set /a YY=%1,MM=%2,DD=%3,Number=%4
    set /a x=(14-MM)/12,y=YY+4800-x,d=(MM+12*x-3)*153+2,d=d/5+DD+y*365+y/4-y/100+y/400-1+Number
    set /a v1=(4*d+3)/146097,v2=(-v1*146097)/4+d,v3=(4*v2+3)/1461,v4=(-v3*1461)/4+v2,v5=(5*v4+2)/153
    set /a DD=(153*v5+2)/-5+v4+101,MM=(-v5/10)*12+v5+103,YY=v1*100+v3-4800+v5/10
    set /a XX=MM-100

:: Ergebnis
    set "DateResult=!DD:~-2!.!MM:~-2!.!YY!"  
    ::Wochentag So=1,Mo=2,Di=3,Mi=4,Do=5,Fr=6,Sa=7
    set /a WeekDay=(d+3)%%7+1

    ::@echo Datum    : !DateResult!
    ::@echo Wochentag: !WeekDay!
goto :eof

@echo off & setlocal

set "AnzahlTage=1"  

set "S=%temp%\GetStartTime.vbs"  
>%S% Echo D=Date-WScript.Arguments(0):WScript.Echo Year(D)^&Right("0"^&Month(D),2)^&Right("0"^&Day(D),2)  

for /f "tokens=1" %%d in ('cscript //nologo "%S%" %AnzahlTage%') do Set "Datum=%%d"  

echo %Datum%

@echo off &setlocal
for /f "tokens=1 delims=." %%a in ('date /t') do (  
  set "t=%%a"  
  setlocal enabledelayedexpansion
  set /a t=!t!-1
  echo Tag: !t!
)
for /f "tokens=2 delims=." %%b in ('date /t') do (  
  set "m=%%b"  
  echo Monat: !m!
)
for /f "tokens=3 delims=. " %%c in ('date /t') do (  
  set "y=%%c"  
  echo Jahr: !y!
)

echo !y!!m!!t!

if %t%==1 (echo Heute leider nicht verwendbar - versuchen Sie es morgen wieder! & pause & goto :eof)

@echo off &setlocal
for /f "tokens=3 delims=. " %%c in ('date /t') do (  
setlocal enabledelayedexpansion
  set "y=%%c"  
)
for /f "tokens=2 delims=." %%b in ('date /t') do (  
setlocal enabledelayedexpansion
  set "m=%%b"  
)
for /f "tokens=1 delims=." %%a in ('date /t') do (  
setlocal enabledelayedexpansion
  set "t=%%a"  
  if !t! ==01 goto :checkmonth
  if !t! NEQ 01 goto :day
  
  :checkmonth
  if !m! ==01 goto :jan
  if !m! ==02 goto :feb
  if !m! ==03 goto :mar
  if !m! ==04 goto :apr
  if !m! ==05 goto :mai
  if !m! ==06 goto :jun
  if !m! ==07 goto :jul
  if !m! ==08 goto :aug
  if !m! ==09 goto :sep
  if !m! ==10 goto :okt
  if !m! ==11 goto :nov
  if !m! ==12 goto :dez
	
	
	:jan
				set /a y=!y!-1
				set m=12
				set t=31
				goto end
			    
	
	:feb
				set m=01
				set t=31
				goto end
	
				
	:mar
				set /a s=!y!-2000
				goto check

	:check
				if !s! GTR 4 goto :minus
				if !s! LSS 4 goto :keinschaltjahr
				if !s! == 4 goto :schaltjahr

	:minus
				set /a s=!s!-4
				goto check

		
	:keinschaltjahr		
				set m=02
				set t=28
				goto end

			
	:schaltjahr
				set m=02
				set t=29
				goto end
	
	:apr
				set m=03
				set t=31
				goto end

	:mai
				set m=04
				set t=30
				goto end

	:jun
				set m=05
				set t=31
				goto end
				
	:jul
				set m=06
				set t=30
				goto end
				
	:aug
				set m=07
				set t=31
				goto end
				
	:sep
				set m=08
				set t=31
				goto end
				
	:okt
				set m=09
				set t=30
				goto end
				
	:nov
				set m=10
				set t=31
				goto end
				
	:dez
				set m=11
				set t=30
				goto end
				
	:day
				set /a t=!t!-1
				goto end
			
	:end
				echo !y!!m!!t!
)

::FTP Downloader
::by Invisan 2013

@echo off &setlocal
::Hier wird das Jahr rausgefiltert
for /f "tokens=3 delims=. " %%c in ('date /t') do (  
setlocal enabledelayedexpansion
  set "jahr=%%c"  
)
::Hier wird der Monat ausgefiltert
for /f "tokens=2 delims=." %%b in ('date /t') do (  
setlocal enabledelayedexpansion
  set "monat=%%b"  
)
::Hier wird der Tag ausgefiltert
for /f "tokens=1 delims=." %%a in ('date /t') do (  
setlocal enabledelayedexpansion
  set "tag=%%a"  
  ::Wenn der erste erreicht ist beginnt der test welcher Tag der vorherige war.
  if !tag! ==01 goto :checkmonth
  ::Wenn der nicht der erste ist gehe weiter nach day
  if !tag! NEQ 01 goto :day
  
  ::Teste welcher Monat ist um den Tag zuzuweisen
  :checkmonth
  if !monat! ==01 goto :jan
  if !monat! ==02 goto :feb
  if !monat! ==03 goto :mar
  if !monat! ==04 goto :apr
  if !monat! ==05 goto :mai
  if !monat! ==06 goto :jun
  if !monat! ==07 goto :jul
  if !monat! ==08 goto :aug
  if !monat! ==09 goto :sep
  if !monat! ==10 goto :okt
  if !monat! ==11 goto :nov
  if !monat! ==12 goto :dez
	
	
	:jan
				set /a jahr=!jahr!-1
				set monat=12
				set tag=31
				goto end
			    
	
	:feb
				set monat=01
				set tag=31
				goto end
	
				
	:mar
				::Da der Februar im Schaltjahr 29 Tage hat setze Jahr -2000 damit die Berechnung nicht so lange dauert.
				set /a s=!jahr!-2000
				goto check

	:check
				::Wenn s größer als 4 (ab 2005) gehe zu Minus
				::Wenn s kleiner als 4 gehe zu keinschaltjahr
				::Wenn s gleich 4 gehe zu schaltjahr
				if !s! GTR 4 goto :minus
				if !s! LSS 4 goto :keinschaltjahr
				if !s! == 4 goto :schaltjahr

	:minus
				::Da s noch größer als 4 ist Rechne s-4 und gehe zurück zu check bis s kleiner oder gleich 4
				set /a s=!s!-4
				goto check

		
	:keinschaltjahr		
				::S ist kleiner als 4 daher ist das Jahr kein Schaltjahr
				set monat=02
				set tag=28
				goto end

			
	:schaltjahr
				::S ist gleich 4 daher ist das Jahr ein Schaltjahr
				set monat=02
				set tag=29
				goto end
	
	:apr
				set monat=03
				set tag=31
				goto end

	:mai
				set monat=04
				set tag=30
				goto end

	:jun
				set monat=05
				set tag=31
				goto end
				
	:jul
				set monat=06
				set tag=30
				goto end
				
	:aug
				set monat=07
				set tag=31
				goto end
				
	:sep
				set monat=08
				set tag=31
				goto end
				
	:okt
				set monat=09
				set tag=30
				goto end
				
	:nov
				set monat=10
				set tag=31
				goto end
				
	:dez
				set monat=11
				set tag=30
				goto end
				
	:day
				set /a tag=!tag!-1
				goto end
)

:end

::Hier werden die benötigten FTP Daten in die Datei D:\copyit.ftp geschrieben
echo open ftp.*.de >>D:\copyit.ftp
echo USERNAME >>D:\copyit.ftp
echo PASSWORD >>D:\copyit.ftp
echo cd UNTERORTNERVERZEICHNISS >>D:\copyit.ftp

::Hier werden die Variablen von oben genutzt um Jahr Monat und Tag in den Dateinamen einzufügen.
echo GET RLP_CAUSER_0128_!jahr!!monat!!tag!.csv >>D:\copyit.ftp

echo LCD "Z:\Neuer Ordner\test\test3\Download" >>D:\copyit.ftp  

echo disconnect >>D:\copyit.ftp

echo bye >>D:\copyit.ftp

::Hier erfolgt jetzt der Aufruf des FTP Commands
ftp -s D:\copyit.ftp

@echo off &setlocal
for /f "tokens=3 delims=. " %%c in ('date /t') do (  
setlocal enabledelayedexpansion
  set "jahr=%%c"  
)
for /f "tokens=2 delims=." %%b in ('date /t') do (  
setlocal enabledelayedexpansion
  set "monat=%%b"  
)
for /f %%g in ('wmic path win32_localtime get dayofweek^|findstr /v /r "^$"') do (  
setlocal enabledelayedexpansion
	set DOW=%%g
)
for /f "tokens=1 delims=." %%a in ('date /t') do (  
setlocal enabledelayedexpansion
				set "tag=%%a"  
				set test=2
  
				if !DOW! GTR 1 goto :welcome
				if !DOW!==1 goto :one
				
	:one 
				set /a test=!test!-1
				if !tag!==01 goto :checkmonth
				set /a tag=!tag!-1
				if !test! GTR 0 goto :one
  
  
	:welcome
				if !tag! ==01 goto :checkmonth
				if !tag! NEQ 01 goto :day
  
	:checkmonth
				echo check
				if !monat! ==01 goto :eins
				if !monat! ==02 goto :zwei
				if !monat! ==03 goto :mar
				if !monat! ==04 goto :zwei
				if !monat! ==05 goto :drei
				if !monat! ==06 goto :zwei
				if !monat! ==07 goto :drei
				if !monat! ==08 goto :zwei
				if !monat! ==09 goto :zwei
				if !monat! ==10 goto :drei
				if !monat! ==11 goto :zwei
				if !monat! ==12 goto :drei
	
	
	:eins
				set /a jahr=!jahr!-1
				set monat=12
				set tag=31
				if !test! GTR 0 goto :one
				goto end
			    
	
	:zwei
				set /a monat=!monat!-1
				set tag=31
				if !test! GTR 0 goto :one
				goto end
				
	:drei		
				set /a monat=!monat!-1
				set tag=30
				if !test! GTR 0 goto :one
				goto end
				
	:mar
				set /a s=!jahr!-2000
				goto check

	:check
				if !s! GTR 4 goto :minus
				if !s! LSS 4 goto :keinschaltjahr
				if !s! == 4 goto :schaltjahr

	:minus
				set /a s=!s!-4
				goto check

		
	:keinschaltjahr		
				set monat=02
				set tag=28
				if !test! GTR 0 goto :one
				goto end

			
	:schaltjahr
				set monat=02
				set tag=29
				if !test! GTR 0 goto :one
				goto end
				
	:day
				set /a tag=!tag!-1
				goto end
				
			
)

:end



echo open ftp.*.de >>D:\copyit.ftp
echo USERNAME >>D:\copyit.ftp
echo PASSWORD >>D:\copyit.ftp
echo cd UNTERORTNERVERZEICHNISS >>D:\copyit.ftp

echo GET RLP_CAUSER_0128_!jahr!!monat!!tag!.csv >>D:\copyit.ftp

echo LCD "Z:\Neuer Ordner\test\test3\Download" >>D:\copyit.ftp  

echo disconnect >>D:\copyit.ftp

echo bye >>D:\copyit.ftp

ftp -s copy.ftp

set "Script=%temp%\GesternSpezial.vbs"  
>"%Script%" echo T=DateAdd("d",-1,Date):If Weekday(T)=1 Then:T=DateAdd("d",-2,T):End If:WScript.Echo T  
for /f "tokens=1-3 delims=." %%a in ('cscript //nologo "%Script%"') do (  
    set "tag=%%a"  
    set "monat=%%b"  
    set "jahr=%%c"  
)
del "%Script%"  

'Ftp-Daten entsprechend anpassen*****************************************  
 Const Z1 = "ftp.*.de"  
 Const Z2 = "Username"  
 Const Z3 = "Passwort"  
 Const Z4 = "CD Unterverzeichnis"  
 Const Z5 = "GET RLP_CAUSER_0128_%Date%.csv"  '%Date% wird vom Code ersetzt  
 Const Z6 = "LCD Z:\Test\Download"  
 Const Z7 = "Disconnect"  
 Const Z8 = "Bye"  
'Ftp-Daten**************************************************************  

'Wird im Script-Verzeichnis erstellt/überschrieben  
 Const sFtpFileName = "CsvDatenDownload.ftp"  

'Ftp-Datei wird angefügt  
 Const sFtpCmdLine = "ftp -s:"  

 Set oShell = CreateObject("WScript.Shell")  
 Set oFso = CreateObject("Scripting.FileSystemObject")  

 'Aktuelles Datum -1  
 dDate = Date - 1

 'Wenn Datum vom Montag, dann Datum vom Freitag  
 If Weekday(dDate) = vbSunday Then
    dDate = dDate - 2
 End If

'DateFormat YYYYMMDD  
 sDate = Year(dDate) & Right("0" & Month(dDate), 2) & Right("0" & Day(dDate), 2)  

'Date in Dateinamen einfügen  
 sZ5 = Replace(Z5, "%Date%", sDate)  

'Ftp-Text erzeugen  
 sFtpText = Join(Array(Z1, Z2, Z3, Z4, sZ5, Z6, Z7, Z8), vbNewLine)

'Ftp-Dateinamen erzeugen  
 sFile = oFso.GetParentFolderName(Wscript.ScriptFullName) & "\" & sFtpFileName  

'Ftp-Datei schreiben  
 oFso.CreateTextFile(sFile).Write sFtpText

'Ftp-CommandLine erzeugen  
 sCmdLine = sFtpCmdLine & Chr(34) & sFile & Chr(34)

'Pause 200 Millisekunden  
 Wscript.Sleep 200

'Datei downloaden  
'oShell.Run sCmdLine, 0, False  

If Weekday(dDate) = vbSunday Then