求助大家写个批处理

helloman

chiannet 发表于 2023-9-6 00:38

谢谢，这个可以了！

stupid2020

我一看，全是用GPT写的。。你自己找GPT，然后慢慢测试。。

szmsys

ppll2030 发表于 2023-9-5 18:31
一码多用

问题：今天的不移动，昨天的不移动，前天的移动
生成的文件夹名称是昨天，但是它只移动前天之前的文件。比如今天是2023/9/6，它只移动2023/9/4及之前的文件，2323/9/5号的文件不移动，咋回事？

此生有求

AI真的让这些便利啦

szmsys

chiannet 发表于 2023-9-6 00:38

前天及之前生成的文件移动了，但是昨天生成的文件没有移动

chiannet

szmsys 发表于 2023-9-6 10:34
前天及之前生成的文件移动了，但是昨天生成的文件没有移动

我测试没问题，31楼是测试"D:\sample"，用的时候试着改为“C:\sample”。

szmsys

chiannet 发表于 2023-9-6 12:54
我测试没问题，31楼是测试"D:\sample"，用的时候试着改为“C:\sample”。

谢谢，已经改成 c:\sample。发现 C:\sample 无效，但是 D:\sample 成功，真是奇怪。

ppll2030

szmsys 发表于 2023-9-6 08:39
问题：今天的不移动，昨天的不移动，前天的移动
生成的文件夹名称是昨天，但是它只移动前天之前的文件。 ...

看运行时的提示，第一个时间是今天，第二个时间是昨天。就对了。反之检查你的系统时间吧。
这个依然是根据创建时间排查的。转移文件部分没问题。只要时间对的上就行。

chiannet

szmsys 发表于 2023-9-6 13:24
谢谢，已经改成 c:\sample。发现 C:\sample 无效，但是 D:\sample 成功，真是奇怪。

检查一下 C:\sample 权限，是否设置了访问权限？
代码再捶打一下：

1. 
   

复制代码

szmsys

chiannet 发表于 2023-9-6 14:59
检查一下 C:\sample 权限，是否设置了访问权限？
代码再捶打一下：

权限没问题，因为运行您的批处理后，里面出现了新生成的文件夹，只是文件没有被移动。

捶打的代码，连 D 盘都无效了，还不如原来的

szmsys

ppll2030 发表于 2023-9-5 18:31
一码多用

路径默认 c：\sample 我在命令行最后加了 pause 出现如图提示：

另外，我想改目录，怎么办啊？谢谢

ppll2030

szmsys 发表于 2023-9-6 15:21
路径默认 c：\sample 我在命令行最后加了 pause 出现如图提示：

另外，我想改目录，怎么办啊？谢谢

你直接复制新的路径过来就行了。
这个set 就是为了方便你更换路径的。其他不需要动。
手动改，注意要用英文冒号，中文冒号就会出错。

szmsys

ppll2030 发表于 2023-9-6 15:30
你直接复制新的路径过来就行了。
这个set 就是为了方便你更换路径的。其他不需要动。
手动改，注意要用 ...

我没改动，为什么提示：系统找不到指定的文件

ppll2030

szmsys 发表于 2023-9-6 15:33
我没改动，为什么提示：系统找不到指定的文件

你没改是不会出现提示的。

因为我已经把这些提示默认都隐藏了。

把这乱改的删了吧。重新复制脚本再保存一个新的吧

szmsys

ppll2030 发表于 2023-9-6 15:41
你没改是不会出现提示的。

因为我已经把这些提示默认都隐藏了。

系统找不到指定文件，啥意思？是不是批处理执行的命令找不到？

szwp

szmsys 发表于 2023-9-6 15:21
路径默认 c：\sample 我在命令行最后加了 pause 出现如图提示：

另外，我想改目录，怎么办啊？谢谢

有没感觉\前面空得多了。

ppll2030

szmsys 发表于 2023-9-6 15:57
系统找不到指定文件，啥意思？是不是批处理执行的命令找不到？

我的脚本不会有这个提示。你要不是乱改，就不是我的脚本。
那我也不知道哪里的问题。

helloman

目前chiannet和ppll2030两位的批处理都使用正常，怎么修改可以同时移动今日以前创建的文件和文件夹？

helloman

szmsys 发表于 2023-9-6 15:07
权限没问题，因为运行您的批处理后，里面出现了新生成的文件夹，只是文件没有被移动。

捶打的代码，连 ...

看了下，应该是文件创建日期问题，我把以前创建的文件移动到d:\sample下，执行这个批处理，创建了以昨天日期命名的新文件夹，但没有移动文件

ppll2030

szmsys 发表于 2023-9-6 15:57
系统找不到指定文件，啥意思？是不是批处理执行的命令找不到？

OK。是我忽略了。sorry！
找了一台win7试了一下。出现你的这些问题了。还有一个时间的显示问题
下面的是WIN7-10通用。已测试。
之前的原因主要是7和10对于日期和时间的默认显示格式不同造成了。
现在用注册表的办法统一的显示格式，以下的脚本就通用了。
脚本含有注册表备份和还原功能，所以不同的显示格式在运行脚本后都还原，不做永久修改。
还有：set p=c:\sample 这条，你可以自由修改后面的路径，d:\sample 或 e:\xxxx\sample  注意用英文的冒号。


2023-09-07 PS:  如果使用 “上午 9:10” 这种格式显示时间，可能出现恢复错误。现已修正。

1. @echo off
   
2. title: 查找和移动非当天创建的文件到前一天命名的文件夹中
   
3. for /f "tokens=3" %%i in ('reg query "HKCU\Control Panel\International" ^| findstr /ilc:"sShortDate"') do set sShortDate=%%i
   
4. for /f "tokens=2,*" %%j in ('reg query "HKCU\Control Panel\International" ^| findstr /ilc:"sTimeFormat"') do set sTimeFormat="%%k"
   
5. reg add "HKCU\Control Panel\International" /f /v "sShortDate" /t REG_SZ /d "yyyy/MM/dd" >nul
   
6. reg add "HKCU\Control Panel\International" /f /v "sTimeFormat" /t REG_SZ /d "HH:mm:ss" >nul
   
7. 
   
8. (echo yd=Date(^)-1
   
9. echo wscript.echo yd
   
10. ) > yd.vbs
    
11. for /f %%a in ('cscript yd.vbs') do set yd=%%a
    
12. del /q yd.vbs
    
13. SET YYD=%yd:/=-%
    
14. echo.&echo 即将把%date%以前(不含当日)创建的文件全部转移到%YYD%文件夹下。
    
15. echo.&pause
    
16. 
    
17. set p=c:\sample
    
18. md "%p%\%YYD%" >nul 2>nul
    
19. FOR /f "tokens=3,*" %%a IN ('dir /a-d /tc %p% ^| FINDSTR /ilvc:"%date%"')  DO move "%p%\%%b" "%p%\%YYD%" >nul 2>nul
    
20. 
    
21. reg add "HKCU\Control Panel\International" /f /v "sShortDate" /t REG_SZ /d "%sShortDate%" >nul
    
22. reg add "HKCU\Control Panel\International" /f /v "sTimeFormat" /t REG_SZ /d "%sTimeFormat%" >nul
    
23. cls&echo.&echo %date%以前创建的文件转移完成。
    
24. timeout /t 2 >nul

复制代码

chiannet

helloman 发表于 2023-9-6 17:01
看了下，应该是文件创建日期问题，我把以前创建的文件移动到d:\sample下，执行这个批处理，创建了以昨天 ...

只搬动“创建日期”符合“非今日”的文件，并不理会“修改日期”为非今日文件。

但Windows 资源浏览器通常只显示“修改日期”。

chiannet

szmsys 发表于 2023-9-6 15:07
权限没问题，因为运行您的批处理后，里面出现了新生成的文件夹，只是文件没有被移动。

捶打的代码，连 ...

冒号要英文的哦，从截图看，你的“c：”是中文冒号，应该是"c:"

szmsys

chiannet 发表于 2023-9-6 17:19
冒号要英文的哦，从截图看，你的“c：”是中文冒号，应该是"c:"

我只是回帖用的不对。批处理是英文的。可以确定，你呢的修改版只能生成文件夹，无法移动文件。我是win7 64位系统，您可以测试一下

szmsys

ppll2030 发表于 2023-9-6 17:12
OK。是我忽略了。sorry！
找了一台win7试了一下。出现你的这些问题了。还有一个时间的显示问题
...

辛苦了！我明天再试试

chiannet

szmsys 发表于 2023-9-6 17:58
辛苦了！我明天再试试

去掉所有外部命令，只使用cmd内部命令，在32位03PE及64位 Win 7系统及64位Win 10系统下测试通过。

1. @Echo Off
   
2. Setlocal Enabledelayedexpansion
   
3. 
   
4. Set "WokDir=f:\Sample"
   
5. 
   
6. For /f "Tokens=1-3 Delims=/ " %%I In ('Echo %Date:-=/%') Do (
   
7.         Set MC=0%%J
   
8.         Set DC=0%%K
   
9.         Call :DateDiff %%I-%%J-%%K -1 T
   
10.         Md "%WokDir%"
    
11.         Set T="%WokDir%\!T!"
    
12.         Md !T!
    
13.         If Not Exist !T! Echo 目录创建失败！&Goto :End
    
14.         For /f "Delims=" %%i in ('Dir "%WokDir%" /A:-D /T:C') Do Call :Action "%%i" "%~0" "%%I/!MC:~-2!/!DC:~-2!" "!T!"
    
15. ) 2>nul
    
16. 
    
17. 
    
18. :End
    
19. Pause
    
20. Exit
    
21. 
    
22. 
    
23. :Action
    
24.         Set "X=%~1"
    
25.         Set Fx="%WokDir%\!X:%X:~0,36%=!"
    
26.         If /i %Fx%==%2 Goto :Eof
    
27.         If Not "%X:~4,1%"=="/" (If "%X:~4,1%"=="-" (Set "X=%X:~0,4%/%X:~5,2%/!X:%X:~0,8%=!") Else (Goto :Eof))
    
28.         If Not "%X:~0,10%"==%3 Move /Y %Fx% %4       
    
29. Goto :Eof
    
30. 
    
31. 
    
32. :DateDiff
    
33.         Setlocal
    
34.         For /f "Tokens=1-3 Delims=/-:\, " %%a In ('Echo /%~1') Do Set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100
    
35.         Set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,i=153*m+2
    
36.         Set /a i=i/5+dd+y*365+y/4-y/100+y/400-2472633+%~2
    
37.         Set /a a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
    
38.         Set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
    
39.         Set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
    
40.         Set mm=0%mm%
    
41.         Set dd=0%dd%
    
42.         Endlocal &Set %3=%yy%-%mm:~-2%-%dd:~-2%
    
43. Goto :Eof

复制代码

dvs909

dvs909 发表于 2023-9-5 23:49
import os
import shutil
from datetime import datetime, timedelta

Python

chiannet

1. 
   

复制代码

ylac

学习了，谢谢分享

chiannet

1. @Echo Off
   
2. Setlocal Enabledelayedexpansion
   
3. 
   
4. Set "WokDir=d:\Sample"
   
5. 
   
6. Call :DateDiff "%Date%" -1 DT
   
7. Set NP="%WokDir%\%DT%"
   
8. (Md "%WokDir%"
   
9. Md %NP%) 2>NUL
   
10. If Not Exist %NP% Echo 目录创建失败！&Goto :End
    
11. For /f "Delims=" %%i in ('Dir "%WokDir%" /A:-D /T:C') Do Call :Action "%%i" "%~0"
    
12. 
    
13. 
    
14. 
    
15. :End
    
16. Pause
    
17. Exit
    
18. 
    
19. 
    
20. :Action
    
21.         Set "X=%~1"
    
22.         Set Fx="%WokDir%\!X:%X:~0,36%=!"
    
23.         If /i Not %Fx%==%2 (
    
24.                 Set FC=%X:~0,10%
    
25.                 Set FC=!FC:-=/!
    
26.         Set DN=%Date:~0,10%
    
27.                 If "!FC:~4,1!"=="/" If Not "!FC!"=="!DN:-=/!" Move /Y %Fx% %NP%
    
28.         )
    
29. Goto :Eof
    
30. 
    
31. 
    
32. :DateDiff
    
33.         Setlocal
    
34.         For /f "Tokens=1-3 Delims=/-:\, " %%a In ('Echo /%~1') Do Set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100
    
35.         Set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,i=153*m+2
    
36.         Set /a i=i/5+dd+y*365+y/4-y/100+y/400-2472633+%~2
    
37.         Set /a a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
    
38.         Set /a d=4*c+3,d/=1461,e=-1461*d,e/=4,e+=c,m=5*e+2,m/=153,dd=153*m+2,dd/=5
    
39.         Set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
    
40.         Set mm=0%mm%
    
41.         Set dd=0%dd%
    
42.         Endlocal &Set %3=%yy%-%mm:~-2%-%dd:~-2%
    
43. Goto :Eof

复制代码

szmsys

chiannet 发表于 2023-9-6 22:12
去掉所有外部命令，只使用cmd内部命令，在32位03PE及64位 Win 7系统及64位Win 10系统下测试通过。

终于好用了！谢谢您！