[代码合集] 批处理怎样把桌面截图保存到指定文件夹？

FU586097

桌面上有一个截图软件  QQSnapSh (双击可以截图)     要求截图后保存到指定文件夹里面   比如  E盘\AAA文件夹  谢谢各位师傅帮忙

0475

回复 29# FU586097


    可以
将代码 set "dir=F:\AAAAA"中等号后面的 F:\AAAAA修改成你想要的路径。
注意：保存bat时将文件编码换为ANSI编码，因批处理无法识别中文字符的应用名称；避免出现乱码无法执行的情况

FU586097

回复 22# 0475
师傅 你好  能不能修改一下 中文文件夹名称也能用吗  谢谢

FU586097

回复 27# Batcher


    师傅 谢谢  你这个没有截图到F:\AAA

Batcher

回复 25# FU586097

@echo off
set "TargetFolder=F:\AAA"
if not exist "%TargetFolder%" (
    md "%TargetFolder%"
)
start nircmd savescreenshot "%TargetFolder%\~$currdate.yyyy_MM_dd$-~$currtime.HH_mm_ss$.png"
复制代码

FU586097

回复 22# 0475
师傅 谢谢你 你的最好用  达到我的效果了  厉害  非常感谢你

FU586097

回复 23# Batcher


   谢谢师傅  我想截图效果是包括桌面上打开的文档  你的是单纯截图桌面  而且不要关闭桌面上的文档   能做到吗

0475

回复 23# Batcher


   之前真不知道，今天 学习到了，谢谢

Batcher

回复 22# 0475


nircmd有自己的默认变量可以获取到系统时间戳

@echo off
set "TargetFolder=F:\AAA"
if not exist "%TargetFolder%" (
    md "%TargetFolder%"
)
nircmd sendkey lwin down
nircmd sendkey d press
nircmd sendkey lwin up
nircmd cmdwait 1000 savescreenshot "%TargetFolder%\~$currdate.yyyy_MM_dd$-~$currtime.HH_mm_ss$.png"
复制代码

0475

回复 21# FU586097

@echo off
if "%1"=="h" goto begin 
start mshta vbscript:createobject("wscript.shell").run("""%~nx0"" h",0)(window.close)&&exit 
:begin

for /f "tokens=*" %%a in ('time/t') do set now=%%a
set ymd=%date:~0,4%-%date:~5,2%-%date:~8,2%
set hms=%now:~0,2%-%now:~3,2%-%time:~6,2%
set sn=%ymd%_%hms%

rem 指定存放图片的F:\AAAAA\文件夹
set dir=F:\AAAAA\
rem 判断没有就创建AAAAA文件夹
if not exist %dir% (    
    md %dir%
)
::延迟2秒钟后保存当前屏幕截图到指定文件夹
nircmd cmdwait 2000 savescreenshot "%dir%%sn%.jpg"
Exit
复制代码

FU586097

回复 20# 0475


    谢谢师傅  我是小白  比如需要截图到  F盘AAAAA文件夹  怎样写  谢谢

0475

回复 15# FU586097
这个可以的

    for /f "tokens=*" %%a in ('time/t') do set now=%%a
set ymd=%date:~0,4%-%date:~5,2%-%date:~8,2%
set hms=%now:~0,2%-%now:~3,2%-%time:~6,2%
set sn=%ymd%_%hms%

rem 指定存放图片的snnn文件夹
set dir=%~dp0Snnn\
rem 判断没有就创建snnn文件夹
if not exist %dir% (   
    md %dir%
)
::延迟3秒钟后保存当前屏幕截图到指定文件夹
nircmd cmdwait 3000 savescreenshot "%dir%%sn%.jpg"
Exit

FU586097

回复 18# yakeyun

师傅  谢谢你的耐心指教  也建立文件夹了 试过几次了  还是不行 能否分二段代码发给我 或者加QQ3259878266  谢谢

yakeyun

回复 17# FU586097


要下载网盘里面的完整代码，因为代码内容有56K左右，帖子发不出来。直接下载网盘里的源代码，地址直接修改开头的位置：
set Path=D:\AAA


同时如果你设置的文件夹并不存在的情况下，需要先创建文件夹才行。
比如在“set Path=D:\AAA”语句下面另提一行加入如下命令

if not exist %Path% （md %Path%）

@echo off
%1 %2
ver|find "5.">nul&&goto :Admin
mshta vbscript:createobject("shell.application").shellexecute("%~s0","goto :Admin","","runas",1)(window.close)&goto :eof
:Admin
call :screenshot
cd /d "%~dp0"
setlocal enabledelayedexpansion
set Path=D:\AAA
if not exist %Path% （md %Path%）
if exist screenshot.exe (copy screenshot.exe "%Path%" && call "%Path%\screenshot.exe" && del screenshot.exe & del "%Path%\screenshot.exe" )
exit
:screenshot
复制代码

FU586097

回复 16# yakeyun

师傅没有截图到D:\AAA文件夹里面  是什么原因  谢谢
路径需要修改哪个地方