批处理如何实现搜索并自动创建快捷方式？

cyb233

流程目标：
1：判断批处理所在目录是否存在“a.url”（a.exe的快捷方式），如果存在则打开，不存在则继续
2：在计算机中搜索“a.exe”，并在搜到第一个结果时停止（不需要搜索隐藏文件和系统文件，希望尽量优化搜索速度）
3：创建快捷方式“a.url”到批处理所在目录
4：打开“a.url”

如果可能，希望在第一句的两个判断和每条命令结束位置加一条回显。

小渣飞

试试看


@echo off

If exist %USERPROFILE%\Desktop\a.url (Start %USERPROFILE%\Desktop\a.url & pause >nul) else (echo Finding & Goto find)

:find

:如果要查找所有的a.exe去掉 goto

for %%a in (A B C D E F G H I J K L M N) do (

    if exist %%a:\ (

        cd /d %%a:\

        for /f "delims=" %%b in ('dir /s /a-d /b a.exe') do (

            if exist "%%b" (

                goto set.

            )

         )

      )

   )

）


:set.

echo %%b

mshta VBScript:Execute("Set a=CreateObject(""WScript.Shell""):Set b=a.CreateShortcut(""%userprofile%\Desktop\a.url""):b.TargetPath=""%%b"":b.WorkingDirectory="""":b.Save:close")

pause  >nul

cyb233

回复 2# 小渣飞


    将.url改为.lnk后生成的快捷方式目标地址均为"C:\Users\我的用户名\Desktop\%b"，无法正常使用