[文件操作] bat 能否实现给F1-F10，快速粘贴设置好的路径？

set ws = createobject("wscript.shell")
ws.run ("多功能剪切板.exe")
wscript.sleep 1000
ws.appactivate("多功能剪切板")
ws.sendkeys "c:\11" 			'F1的快捷路径
ws.sendkeys "~{TAB}"
ws.sendkeys "c:\22" 			'F2的快捷路径
ws.sendkeys "~{TAB}"
ws.sendkeys "c:\33"
ws.sendkeys "~{TAB}"
wscript.sleep 1000
ws.sendkeys "% n" 			'输入完成，最小化多功能窗口
wscript.quit
复制代码

@echo off&setlocal enabledelayedexpansion
(echo set ws = createobject("wscript.shell"^)
echo N = WScript.Arguments(0^)
echo ws.appactivate("多功能剪切板"^)
echo wscript.sleep 500
echo For i = 1 To N-1
echo     ws.SendKeys "{TAB}"
echo Next
echo ws.sendkeys "^v"
echo wscript.sleep 500
echo ws.sendkeys "{TAB}"
echo wscript.quit)>$.vbs

start "" "多功能剪切板.exe"
rem 注意 +21 这个数值与下面的 “地址列表：”的行数一致。否则取数会出错
for /f "delims=" %%i in ('more +21 %~f0') do (
	set/a n+=1&echo %%i | clip &cscript //NoLogo $.vbs !n!
)
del $.vbs&exit/b

地址列表：
E:\01_项目2024\15_广西2024\03_资料0914
E:\02_项目2024\15_北京2024\03_资料0914
E:\03_项目2024\15_西安2024\03_资料0914
复制代码

<#*,:
@echo off
cd /d "%~dp0"
set "batchfile=%~f0"
Powershell -ExecutionPolicy Bypass -C "Set-Location -LiteralPath ([Environment]::CurrentDirectory);. ([ScriptBlock]::Create([IO.File]::ReadAllText($env:batchfile,[Text.Encoding]::GetEncoding(0) )) )"

exit /b
#>
Add-Type -AssemblyName System.Windows.Forms, Microsoft.VisualBasic
$proc = Start-Process -FilePath "多功能剪切板.exe" -PassThru
[Microsoft.VisualBasic.Interaction]::AppActivate($proc.Id)
# Start-Sleep -Milliseconds 1000
[System.Windows.Forms.SendKeys]::SendWait("E:\01_项目2024\15_广西2024\03_资料0914") # F1的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

[System.Windows.Forms.SendKeys]::SendWait("E:\22\01_项目2024\15_广西2024\03_资料0914") # F2的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

[System.Windows.Forms.SendKeys]::SendWait("E:\33\中文abc") # F3的快捷路径
[System.Windows.Forms.SendKeys]::SendWait("~{TAB}")

Start-Sleep -Milliseconds 500
[System.Windows.Forms.SendKeys]::SendWait("% n")
复制代码

f1::send, E:\01_项目2024\15_广西2024\03_资料0914
f2::send, E:\02_项目2024\15_北京2024\03_资料0914
f3::send, E:\03_项目2024\15_西安2024\03_资料0914
return
复制代码

@echo off

:loop
set /p s=请输入一个数字，按回车键退出
if %s%==1 goto :c1
if %s%==2 goto :c2
exit

:c1
set "s=E:\01_项目2024\15_广西2024\03_资料0914"
mshta.exe vbscript:ClipboardData.SetData("text","%s%")(close)
echo 已复制 %s%
echo,
goto :loop

:c2
set "s=E:\01_项目2024\"
mshta.exe vbscript:ClipboardData.SetData("text","%s%")(close)
echo 已复制 %s%
echo,
goto :loop
复制代码