[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
pangqijun

Rank: 1

帖子
5 
积分
18 
技术
0  
捐助
0  
注册时间
2015-1-23 
1楼 跳转到 » 倒序看帖
打印
tT
发表于 2015-1-23 21:23 | 只看该作者

[文件操作] 求补充完整一个整理桌面文件的批处理程序

单位的电脑每天都有人放很多文件夹和文件，桌面很乱，我想写一个批处理程序，把这些文件和文件夹都放到别的地方，现在我能移动桌面上文件到d:\桌面临时文件\"%a%"。
问题来了
1.如果人家在桌面放的是一个文件夹，我就搞不定了。 求助
2.我想创建一个d:\桌面临时文件的快捷方式到桌面，方便人家去查找。 求助！~！~
搞了几天，都没整出来，只能发帖求助了。谢谢，求补充！~！~！~
  1. @echo off

  2. cd C:\Documents and Settings\Administrator\桌面

  3. if not exist d:\桌面临时文件 md d:\桌面临时文件

  4. set a=%date:~0,10%

  5. if not exist d:\桌面临时文件\"%a%" md d:\桌面临时文件\"%a%"

  6. move /y "C:\Documents and Settings\Administrator\桌面\*.doc" d:\桌面临时文件\"%a%"

  7. move /y "C:\Documents and Settings\Administrator\桌面\*.xls" d:\桌面临时文件\"%a%"

  8. move /y "C:\Documents and Settings\Administrator\桌面\*.txt" d:\桌面临时文件\"%a%"

  9. move /y "C:\Documents and Settings\Administrator\桌面\*.ppt" d:\桌面临时文件\"%a%"

  10. move /y "C:\Documents and Settings\Administrator\桌面\*.zip" d:\桌面临时文件\"%a%"

  11. move /y "C:\Documents and Settings\Administrator\桌面\*.pdf" d:\桌面临时文件\"%a%"
复制代码
收藏 分享

mms0536

Rank: 1

帖子
66 
积分
88 
技术
3  
捐助
0  
注册时间
2010-10-5 
2楼
发表于 2015-1-23 21:43 | 只看该作者
http://www.bathome.net/thread-33758-1-1.html

TOP

Batcher

Rank: 12Rank: 12Rank: 12

帖子
14936 
积分
46143 
技术
857  
捐助
745  
注册时间
2008-6-9 
3楼
发表于 2015-1-23 22:03 | 只看该作者
move命令不支持跨分区移动文件夹
我帮忙写的代码不需要付钱。如果一定要给，请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家，加入VIP会员！】http://bbs.bathome.net/thread-67716-1-1.html

TOP

pcl_test

Rank: 8Rank: 8

帖子
3041 
积分
5333 
技术
685  
捐助
0  
注册时间
2014-10-19 
4楼
发表于 2015-1-24 00:18 | 只看该作者
本帖最后由 pcl_test 于 2015-1-24 00:20 编辑 
  1. @echo off & color 0d

  2. for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Desktop"') do (

  3. set "desktop_dir=%%j"

  4. )

  5. set "back_dir=D:\桌面备份"

  6. set "filesdate=%date:~0,4%%date:~5,2%%date:~8,2%"

  7. if not exist "%back_dir%\DesktopBack%filesdate%\" (md "%back_dir%\DesktopBack%filesdate%\")

  8. xcopy "%desktop_dir%" "%back_dir%\DesktopBack%filesdate%\" /s /f

  9. del "%back_dir%\DesktopBack%filesdate%\*.lnk" /s /f /q

  10. for /f "delims=" %%a in ('dir /a-d /b /s "%desktop_dir%\*.*"') do (

  11. if "%%~xa" neq ".lnk" (del "%%a" /f /s /q)

  12. )

  13. for /f "delims=" %%b in ('dir /ad /b /s "%desktop_dir%\"^|sort /r') do (rd "%%b" /s /q)

  14. echo [InternetShortcut] >>"%desktop_dir%\桌面备份.url"

  15. echo URL="%back_dir%\" >>"%desktop_dir%\桌面备份.url" 

  16. echo IconIndex=4 >>"%desktop_dir%\桌面备份.url"

  17. echo IconFile="%SystemRoot%\system32\SHELL32.dll" >>"%desktop_dir%\桌面备份.url"

  18. pause
复制代码
回复 1# pangqijun

TOP

ygqiang

Rank: 5Rank: 5

帖子
1282 
积分
723 
技术
13  
捐助
50  
注册时间
2010-4-18 
5楼
发表于 2015-1-24 01:45 | 只看该作者
本帖最后由 ygqiang 于 2015-1-24 02:56 编辑
回复  pangqijun
pcl_test 发表于 2015-1-24 00:18



    多谢，xp系统、win7 64系统下测试都好用
  1. @echo off & color 0d

  2. for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Desktop"') do (

  3. set "desktop_dir=%%j"

  4. )

  5. set "back_dir=D:\桌面备份"

  6. 1set "filesdate=%date:~0,4%%date:~5,2%%date:~8,2%"

  7. if not exist "d:\桌面备份\" (md "d:\桌面备份\")

  8. 

  9. xcopy "%desktop_dir%" "d:\桌面备份\" /s /f /y

  10. del "d:\桌面备份\*.lnk" /s /f /q

  11. del "d:\桌面备份\桌面备份.url" /q 

  12. 

  13. for /f "delims=" %%a in ('dir /a-d /b /s "%desktop_dir%\*.*"') do (

  14. if "%%~xa" neq ".lnk" (del "%%a" /f /s /q)

  15. )

  16. for /f "delims=" %%b in ('dir /ad /b /s "%desktop_dir%\"^|sort /r') do (rd "%%b" /s /q)

  17. 

  18. echo [InternetShortcut] >>"%desktop_dir%\桌面备份.url"

  19. echo URL="%back_dir%\" >>"%desktop_dir%\桌面备份.url" 

  20. echo IconIndex=4 >>"%desktop_dir%\桌面备份.url"

  21. echo IconFile="%SystemRoot%\system32\SHELL32.dll" >>"%desktop_dir%\桌面备份.url"

  22. 

  23. exit
复制代码

TOP

返回列表