@echo off
title %~nx0
REM ##################################################################################
REM ###  スタートメニューもどきのプログラム・メニューを一つにします
REM ### http://d.hatena.ne.jp/palm84/20150826/1440584797
REM ### http://www10.plala.or.jp/palm84/archives/commandline/backup/Windows_Copy_ProgramsMenu.bat.txt
REM  https://eu7w9wsmf6a74xyjdfzl3q-on.drv.tw/archives/commandline/backup/Windows_Copy_ProgramsMenu.bat.txt
REM ##################################################################################
set "Regkey=HKLM\SOFTWARE\Microsoft\Windows NT\CurrentVersion"
reg query "%Regkey%" /v ProductName | findstr /c:"Windows 10" >nul && GOTO START
reg query "%Regkey%" /v ProductName | findstr /c:"Windows 8" >nul && GOTO START
GOTO NOOS

REM #####################################
REM ### START
REM #####################################
:START
cls
echo:
echo:
echo:
echo:
echo         **************************************************************
echo:
echo         * ===  Quick Launch\ProgramsMenu へ                      === *
echo         * ===  スタートメニューフォルダの内容をコピーします！    === *
echo:
echo         **************************************************************
echo:
echo                   続行しますか？ 中断は xボタン or Ctrl-C
echo.
echo                     *** 何かキーを押すと続行します *** 
pause >nul
echo:

REM #####################################
REM ### Robocopy
REM #####################################
set "Programs=%AppData%\Microsoft\Windows\Start Menu\Programs"
set "AuPrograms=%ProgramData%\Microsoft\Windows\Start Menu\Programs"
set "Target=%AppData%\Microsoft\Internet Explorer\Quick Launch\ProgramsMenu"
REM if not exist "%Target%" mkdir "%Target%"
if exist "%Target%" rd /s/q "%Target%"
mkdir "%Target%"

robocopy "%Programs%" "%Target%" /s /e
robocopy "%AuPrograms%" "%Target%" /s /e

REM #####################################
REM ### rename
REM #####################################
REM # Accessories\Notepad.lnk	メモ帳
pushd %Target%\Accessories
if not exist "メモ帳.lnk" ren "Notepad.lnk" "メモ帳.lnk"
del "Notepad.lnk" 2>nul

REM # System Tools\Default Programs.lnk		既定のプログラム
REM # System Tools\Task Manager.lnk			タスク マネージャー
REM # System Tools\Windows Easy Transfer.lnk	Windows 転送ツール (Windows 8)
robocopy "%Programs%\System Tools" "%Target%\System Tools" /s /e
pushd %Target%\System Tools
if not exist "既定のプログラム.lnk" ren "Default Programs.lnk" "既定のプログラム.lnk"
if not exist "タスク マネージャー.lnk" ren "Task Manager.lnk" "タスク マネージャー.lnk"
if exist "Windows Easy Transfer.lnk" (
if not exist "Windows 転送ツール.lnk" ren "Windows Easy Transfer.lnk" "Windows 転送ツール.lnk"
)
del "Default Programs.lnk" 2>nul
del "Task Manager.lnk" 2>nul
del "Windows Easy Transfer.lnk" 2>nul

REM # Windows 簡単操作\
REM # Windows 簡単操作\Speech Recognition.lnk	音声認識
REM # Accessibility\Speech Recognition.lnk		音声認識
pushd %Target%\
if exist "Windows 簡単操作" (
robocopy "Windows 簡単操作" "Accessibility" /s /e
pushd %Target%\Accessibility
if not exist "Windows 音声認識.lnk" ren "Speech Recognition.lnk" "Windows 音声認識.lnk" 2>nul
del "Speech Recognition.lnk" 2>nul
rd /s /q "%Target%\Windows 簡単操作"
) Else (
robocopy "%Programs%\Accessibility" "%Target%\Accessibility" /s /e
pushd %Target%\Accessibility
if not exist "Windows 音声認識.lnk" ren "Speech Recognition.lnk" "音声認識.lnk"
del "Speech Recognition" 2>nul
)

GOTO DONE

REM #####################################
REM ### NOOS
REM #####################################
:NOOS
echo:
echo:
echo:
echo:
echo:
echo         **************************************************************
echo:
echo        ！！！           Windows 8 or 10 用なのです             ！！！
echo:
echo         **************************************************************
echo:
GOTO END

REM #####################################
REM ### DONE
REM #####################################
:DONE
echo:
echo      ******************************************************************
echo      ************              Done !                      ************
echo      ******************************************************************
echo:

REM #####################################
REM ### END
REM #####################################
:END
echo:
echo                     *** 何かキーを押すと閉じます *** 
pause >nul