[文件操作] [已解决]求批处理自动整理桌面文件并以日期归档 望大侠指点

erjnasrtnws

把今天--桌面---上的（新建文件 或者 下载的或者粘贴复制过来的文件）无论任何类型的文件归档到归档文件夹下以日期命名（按日期年月日如20150101）的文件夹里面，只处理今天的，之前(前天明天)之后的文件都不需要要处理，补充 桌面上的快捷方式也不要删除 谢谢
求批处理脚本， 望大侠指点
最终效果是  桌面上 只有我的电脑 回收站 归档 （在归档里有20150101 20150102 20150102.。。。。。）  和 不是今天的文件，还有一些快捷方式。不知道我说明白了没有


望各位坛友不吝赐教！！！


1 补充如果假如归档之日期命名的文件夹中已有相同文件，请教如何不要覆盖，相同文件归档之后变成   名称-1  ，名称-2 ，名称-3 这样形式的

2 还有一种情况可能难处理 就是剪切到桌面上的文件，它还是以前的日期 请问是否有方法把剪切过来的文件也归档到以今天日期命名的文件夹之中了（如无法解决 可以不管剪切到桌面上的文件）

erjnasrtnws

再次谢谢3楼 6楼的热心指点

erjnasrtnws

、回复 3# ygqiang
大侠请问，你的代码XP可以使用吗？我在XP中使用发现桌面的文件的确没有了呵呵 这效果很好 正好想把快捷方式留在z桌面 可是在D盘的桌面备份文件夹里也是空的，不知道文件到哪里去了 ！代码运行时，显示删除快捷方式错误《不知道是否对运行最终结果产生影响了？？？本人希望保留快捷方式不删除
求大侠指点

erjnasrtnws

回复 6# terse
大侠你的代码无反应l!!!我在XP中运行的 需要注意些什么了？？

erjnasrtnws

回复 14# WHY

谢谢  刚刚试了效果很好
望大侠改进！！！！！
1请问如何保留桌面的快捷方式了？？？ 希望把快捷方式图标留在桌面上，求指点
2，如何实现和3楼一样的效果，就是把不是今天新建的文件（是从其它盘拷贝到桌面上的不是今天的文件）也可以放入归档之中

如能实现那就对我来说相当完美了，我会终身珍藏的

本人能力低微，望大侠不吝赐教！！！！谢谢

erjnasrtnws

回复 16# WHY

很好！！！ 谢谢
只差一步就完美了  可否试下？？ 呵呵

补充更正 ----   实现和3楼差不多的效果，就是把不是今天新建的文件（是从其它盘拷贝到桌面上的不是今天的文件）也可以放入归档到（以今天的日期命名的文件夹）之中

erjnasrtnws

回复 18# WHY

厉害啊 您的代码这么简洁啊 呵呵
达到了我想要的效果了 好像有点小问题 日期不对一下子生成两个日期  你看下图片 我刚刚测试的


希望大侠改进一下
补充 大侠可以保留昨天 和之前的文件不动吗 ？？我只想归档当天的文件可以吗！！麻烦了

erjnasrtnws

回复 19# ygqiang


OK  谢谢回复  可能我电脑有些问题  装的精简版XP的  我有空去其他电脑试下

erjnasrtnws

回复 22# WHY


哦  不好意思 大侠看的如此仔细 ！谢谢了  我一定认真修改下！

erjnasrtnws

回复 22# WHY

谢谢大侠指正 不好意思啊  表达不准确我已更正

erjnasrtnws

回复 16# WHY


    请问大侠 如果有相同文件就直接覆盖了，请教如何不要覆盖，直接变成   名称-1  名称-2 这样形式的  
大侠有空的话   帮忙在看看吧 谢谢了 ！！！

erjnasrtnws

谢谢热心的各位大侠 问题已经解决很好了 虽然离完美只差一步 已经非常满意了 ！！！对帮我解答的大侠，再次衷心说声谢谢了，好人一生平安！！！！

erjnasrtnws

回复 27# ygqiang

@echo off
set "s=HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders"
for /f "tokens=2*" %%i in ('reg query "%s%" /v Desktop') do (
    set "Desktop=%%j"
)
for /f %%i in ('wmic os get LocalDateTime^|findstr /b [0-9]') do (
    set "Today=%%i"
)

set "Today=%Today:~0,8%"
md "%Desktop%\归档\%Today%\" 2>nul

set "MyPath=%Desktop:~2%\"
set wql=where "drive='%Desktop:~0,2%' and path='%MyPath:\=\\%' and extension!='LNK'"
for /f "tokens=1*" %%i in ('wmic datafile %wql% get creationdate^,name^|findstr /b %Today%')do (
    for /f "delims=" %%j in ("%%j") do (
        if /i not "%%~fj" == "%~f0" move "%%~fj" "%Desktop%\归档\%Today%\"
    )
)
pause
复制代码

我现在就用的这个 感觉横好  不需要EXE的
你可以试试 只处理桌面上的今天产生的文件  在桌面上已日期归档 （是移动文件不是复制）