windows系统中的一些实用脚本

批量删除路径过于长的文件.bat

:: 脚本的作用：解决路径过长无法删除的情况
@echo off
:input_loop
setlocal
set /p targetDir=请输入要删除的文件夹路径: 

if exist "%targetDir%" (
    rmdir /s /q "%targetDir%"
    echo 文件夹 %targetDir% 已删除
) else (
    echo 文件夹 %targetDir% 不存在
)

endlocal
goto :input_loop

获取此电脑已连WIFI.bat

:: 脚本的作用：获取此电脑已连WIFI
@echo off
mode con lines=30
title 获取此电脑已连WIFI
color 0a

if not exist %~dp0"\wifi" ( mkdir wifi )

netsh wlan show profile
rem netsl wlan show profile * key=clear           // 向控制台输出所有使用过的WIFI 
rem netsh wlan show profile name=配置文件名称     // 表示用来筛选某个配置

netsh wlan export profile folder=%~dp0\wifi  key=clear

pause

Word邮件合并获取图片全路径.bat

:: Word邮件合并获取图片全路径
@echo off
mode con lines=30
title Word邮件合并获取图片全路径
color 0a

set "OldStr=%~dp0"
set "NewStr=%OldStr:\=\\%"
rem 参考帮助，http://bbs.bathome.net/thread-59932-1-1.html
rem 具体用法，https://blog.csdn.net/qq_29001539/article/details/134519521

set "OutputFile=%~dp0output.txt"

(
    echo 图片文件路径列表:
    for %%i in (*.png,*.jpg,*.gif) do (
        echo %NewStr%%%i
    )
) > "%OutputFile%"

echo 输出已保存到 %OutputFile%
pause