reorx/copyshortcut-AppLinks.bat

## copyshortcut-AppLinks.bat
SETLOCAL

set dest=C:\Users\reorx\AppLinks
set source=%1


FOR %%i IN ("%source%") DO (
set filedrive=%%~di
set filepath=%%~pi
set filename=%%~ni
set fileextension=%%~xi
)

@echo off
powershell "$s=(New-Object -COM WScript.Shell).CreateShortcut('%dest%\%filename%.lnk');$s.TargetPath='%source%';$s.Save()"
	SETLOCAL

	set dest=C:\Users\reorx\AppLinks
	set source=%1


	FOR %%i IN ("%source%") DO (
	set filedrive=%%~di
	set filepath=%%~pi
	set filename=%%~ni
	set fileextension=%%~xi
	)

	@echo off
	powershell "$s=(New-Object -COM WScript.Shell).CreateShortcut('%dest%\%filename%.lnk');$s.TargetPath='%source%';$s.Save()"