首页 > 其他分享 >一键找出电脑上小电影

一键找出电脑上小电影

时间:2023-02-27 13:56:39浏览次数:33  
标签:Capture 找出 txt 一键 电脑 Desktop txtdir userprofile% echo

一键找出朋友电脑里的小电影,图片,或者音乐。复制到桌面打开

打开记事本,复制脚本,保存后缀为.Bat

【bat 脚本】

echo off
color 0a
title GET ALL Capture
mode con: cols=50 lines=20

rem administrators run
%1 mshta vbscript:CreateObject("Shell.Application").ShellExecute("cmd.exe","/c %~s0 ::","","runas",1)(window.close)&&exit

SETlOCAL enabledelayedexpansion

:main
echo. *New time: %date%%time%*
echo. *Information:
echo. *Get something(Jpg/PDF/Music/Move)*

echo.-------------------------------------
echo. [1]*Picture* [2]*PDF*
echo. [3]*Music* [4]*Move^&^&TV*
echo.-------------------------------------
echo. [9]*exit*

set /p chooes="Input you choose item:"
echo.

if /i %chooes% == 1 (goto jpg)
if /i %chooes% == 2 (goto pdf)
if /i %chooes% == 3 (goto mp3)
if /i %chooes% == 4 (goto mov)
if /i %choose% == 5 (goto exit)
if /i %chooes% == " " (goto et)

:jpg
cd %userprofile%\Desktop
if exist Capture del Capture /s /q
if exist 1.txt del 1.txt /s /q
dir /s /a /b C:\*.jpg>>%userprofile%\Desktop\1.txt
dir /s /a /b D:\*.jpg>>%userprofile%\Desktop\1.txt
goto cp

:pdf
cd %userprofile%\Desktop
if exist Capture del Capture /s /q
if exist 1.txt del 1.txt /s /q
dir /s /a /b C:\*.pdf>>%userprofile%\Desktop\1.txt
dir /s /a /b D:\*.pdf>>%userprofile%\Desktop\1.txt
goto cp

:mp3
cd %userprofile%\Desktop
if exist Capture del Capture /s /q
if exist 1.txt del 1.txt /s /q
dir /s /a /b C:\*.mp3>>%userprofile%\Desktop\1.txt
dir /s /a /b D:\*.mp3>>%userprofile%\Desktop\1.txt
goto cp

:mov
cd %userprofile%\Desktop
if exist Capture del Capture /s /q
if exist 1.txt del 1.txt /s /q
dir /s /a /b C:\*.mp4>>%userprofile%\Desktop\1.txt
dir /s /a /b D:\*.mp4>>%userprofile%\Desktop\1.txt
dir /s /a /b C:\*.avi>>%userprofile%\Desktop\1.txt
dir /s /a /b D:\*.avi>>%userprofile%\Desktop\1.txt
dir /s /a /b C:\*.wmv>>%userprofile%\Desktop\1.txt
dir /s /a /b D:\*.wmv>>%userprofile%\Desktop\1.txt
dir /s /a /b C:\*.mov>>%userprofile%\Desktop\1.txt
dir /s /a /b D:\*.mov>>%userprofile%\Desktop\1.txt

:cp

md %userprofile%\Desktop\Capture
cd %userprofile%\Desktop

set j=0
for /f "delims=""" %%i in (1.txt) do (
set lineStr j+=1
set con!j!=%%i
call set lineStr=%%con!j!%%
copy !lineStr! %userprofile%\Desktop\Capture)
cd %~dp0
del 1.txt
cls.
echo. open the folder after 3 Seconds
timeout /t 3

start "" "%Userprofile%\Desktop\Capture"


pause
cls
goto main

:et
exit

标签:Capture,找出,txt,一键,电脑,Desktop,txtdir,userprofile%,echo
From: https://www.cnblogs.com/macro-tang/p/17159400.html

相关文章