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

@echo off & color 0d
for /f "tokens=2,*" %%i in ('reg query "HKCU\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders" /v "Desktop"') do (
set "desktop_dir=%%j"
)

——————————————————————————————————————————————
set "back_dir=d:\桌面备份\%date:~0,4%-%date:~5,2%桌面备份"
set "back_dir1=%date:~0,4%-%date:~5,2%桌面备份"

set "back_dir_favo=d:\桌面备份\%date:~0,4%-%date:~5,2%桌面备份\收藏夹"


if not exist "d:\桌面备份" (md "d:\桌面备份")
if not exist "%back_dir%" (md "%back_dir%")

if not exist "%back_dir_favo%" (md "%back_dir_favo%")

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


——————————————————————————————————————————————
robocopy "%desktop_dir%" "%back_dir%" /move /e /xf *.lnk

robocopy "%userprofile%\Favorites" "d:\00beifen\备份\7Favorites" /mir /w:2 /r:2

robocopy "%userprofile%\Favorites" "%back_dir_favo%" /mir /w:2 /r:2


——————————————————————————————————————————————
for /f "delims=" %%a in ('dir /a-d /b /s "%desktop_dir%\*.*"') do (
if "%%~xa" neq ".lnk" (del "%%a" /f /s /q)
)

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


——————————————————————————————————————————————
(echo Set objShell=CreateObject^("WScript.Shell"^)
echo DesktopPath=objShell.SpecialFolders^("Desktop"^)
echo Set objlink=objShell.CreateShortcut^(DesktopPath ^& "\%back_dir1%.lnk"^)
echo objlink.Hotkey="CTRL+Q"
echo objlink.WindowStyle=3
echo objlink.TargetPath="%back_dir%"
echo objlink.Save
)>"%temp%\mysendto.vbs"
start /wait "" "%temp%\mysendto.vbs"

cls
ping 127.0.0.1 -n 5 >nul 2>nul
del /q "%temp%\mysendto.vbs"



——————————————————————————————————————————————
title 重启explorer资源管理器不关闭打开的文件夹
1set/p "p=即将重启 Explorer，"<nul & 1pause

Call :_RestartExplorer
echo 完成！
1pause

cls
ping 127.0.0.1 -n 5 >nul 2>nul

start "" "%back_dir%"

exit



:: 重启 Explorer
goto :eof
:_RestartExplorer
  ( echo Set objWsh = CreateObject^("WScript.Shell"^)
  echo Set objShell = CreateObject^("Shell.Application"^)
  echo For Each objWin In objShell.Windows
  echo   If Instr^(LCase^(objWin.FullName^),"\explorer.exe"^) Then
  echo     strURL = strURL ^& objWin.LocationURL ^& vbCrLf
  echo   End If
  echo Next
  echo If strURL = "" Then WScript.Quit
  echo strURL = Left^(strURL, Len^(strURL^)-Len^(vbCrLf^)^)
  echo arrURL = Split^(strURL, vbCrLf^)
  echo objWsh.run "cmd /c taskkill /f /im explorer.exe & start """" explorer", 0, True
  echo For Each strURL In arrURL
  echo   objShell.Explore strURL
  echo Next )>"%temp%\RestartExplorer.vbs"
  CScript //NoLogo "%temp%\RestartExplorer.vbs"
  del /q /f "%temp%\RestartExplorer.vbs"
  goto :eof
复制代码

 o(￣▽￣)o 2015/11/21 周六23:40:29.02 <(￣︶￣)>
c:\>cd %HOMEPATH%\desktop

 o(￣▽￣)o 2015/11/21 周六23:40:31.45 <(￣︶￣)>
c:\Users\xxx\Desktop>
复制代码

@if(0)==(0) echo off & CScript -NoLogo -E:JScript %0 & exit @end
Date.prototype.Format = function (fmt) {
    var o = {
        "M+": this.getMonth() + 1,
        "d+": this.getDate()
    };
    if (/(y+)/.test(fmt))
        fmt = fmt.replace(RegExp.$1, (this.getFullYear() + "").substr(4 - RegExp.$1.length));
    for (var k in o)
        if (new RegExp("(" + k + ")").test(fmt))
            fmt = fmt.replace(RegExp.$1, (RegExp.$1.length == 1) ? (o[k]) : (("00" + o[k]).substr(("" + o[k]).length)));
    return fmt;
}
var Shell = WScript.CreateObject("WScript.Shell");
var fso = WScript.CreateObject("Scripting.FileSystemObject");
var strDesktop = Shell.SpecialFolders("Desktop");
var ff = strDesktop + "\\归档\\" + new Date().Format("yyyyMMdd");
if(!fso.FolderExists(ff)){
   fso.CreateFolder(ff); 
};
var d = new Date();
var Folder= fso.GetFolder(strDesktop);
for(var e=new Enumerator(Folder.Files);!e.atEnd();e.moveNext()){
   var f=e.item();
   var t = parseInt(Math.round(d - f.Datecreated)/86400000);
   if (t == 0) {
    f.Move(ff+ "\\" + f.name);
   }
}
复制代码

cd /d "%USERPROFILE%\desktop"|| cd /d "%USERPROFILE%\桌面"
复制代码

@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:\=\\%'"
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
复制代码