一键脚本提取Windows锁屏壁纸桌面壁纸

一键脚本的诞生

适合平台：Windows7、8、10、11 全系统平台

有时候不管是遇见好的Windows聚焦好看的壁纸，还是电脑桌面好看的壁纸想保存下来奈图片路径位置藏得太深了，找起来比较麻烦而且找到后拷贝出来还需要去修改后缀才能查看，故想到了使用批处理一键提取并且修改后缀这样就免了一番折腾了，一键即可搞定。

 新建文件夹：Wallpapers_Extraction

• 提取Windows聚焦锁屏图片：

Wallpapers_Extraction文件夹下新建文件：LockScreenWallpaper.bat 文本格式打开复制下方代码保存后双击打开即可运行

@echo off
	title LockScreenWallpaper By__anig__&color a&mode con cols=80 lines=35&chcp>nul 936
	
REM 设置源文件夹路径
set "source=%LocalAppData%\Packages\Microsoft.Windows.ContentDeliveryManager_cw5n1h2txyewy\LocalState\Assets"
REM 设置目标文件夹路径
set "destination=%cd%\LockScreenWallpaper"

REM 创建目标文件夹（如果不存在）
if not exist "%destination%" (
    mkdir "%destination%"
)

@rem REM 遍历源文件夹中的所有文件，并复制到目标文件夹
@rem for %%F in ("%source%\*") do (
@rem     REM 复制文件并重命名为 .jpg 后缀
@rem     copy "%%F" "%destination%\%%~nF.jpg"
@rem )

REM 遍历源文件夹中的所有文件，并复制到目标文件夹
for %%F in ("%source%\*") do (
    REM 检查目标文件是否已经存在
    if not exist "%destination%\%%~nF.jpg" (
        REM 如果不存在，复制文件并重命名为 .jpg 后缀
        copy "%%F" "%destination%\%%~nF.jpg"
    ) else (
        REM 如果存在，可以选择跳过或重命名
        echo File %%~nF.jpg already exists, skipping.
    )
)

::end
echo All files have been copied to LockScreenWallpaper folder with .jpg extension.
    timeout>nul /t 2 /nobreak&exit
    pause

• 提取桌面壁纸图片：

Wallpapers_Extraction文件夹下新建文件：LockScreenWallpaper.bat 文本格式打开复制下方代码保存后双击打开即可运行

@echo off
title wallpapers By__anig__&color a&mode con cols=80 lines=35&chcp>nul 936

REM 设置源文件路径
set "source=%AppData%\Microsoft\Windows\Themes\TranscodedWallpaper"

REM 设置目标文件路径（当前目录）
set "destination=%cd%\TranscodedWallpaper.jpg"

REM 检查源文件是否存在
if exist "%source%" (
    REM 初始化计数器
    set /a count=0

    REM 检查目标文件是否存在，如果存在则递增计数器
    :check_file
    if exist "%destination%" (
        set /a count+=1
        set "destination=%cd%\TranscodedWallpaper(%count%).jpg"
        goto check_file
    )

    REM 复制并重命名文件
    copy "%source%" "%destination%"
    
    echo TranscodedWallpaper copied to current directory and renamed to %destination%.
) else (
    echo TranscodedWallpaper does not exist in the specified directory.
)

::end
timeout>nul /t 2 /nobreak&exit
pause