批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[文件操作] 批处理如何实现搜索并自动创建快捷方式?

流程目标:
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

TOP

回复 2# 小渣飞


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

TOP

返回列表