求助大家写个批处理

szmsys · 发表于 2023-9-5 10:25:57

本帖最后由 szmsys 于 2023-9-7 09:08 编辑

求助大家写个批处理：

第一步：
在 C:\sample 下生成一个以昨天的日期命名的文件夹：YYYY-MM-DD

第二步：
把 C:\sample 下生成日期不是今天的文件，全部移动到这个新建文件夹里

谢谢

martin313 · 发表于 2023-9-5 10:52:14

有请 yyz2191958 出马

yyz2191958 · 发表于 2023-9-5 10:53:57

martin313 发表于 2023-9-5 10:52
有请 yyz2191958 出马

我不晓得惭愧

chiannet · 发表于 2023-9-5 11:28:20

@echo off
SetLocal EnableDelayedExpansion

For /f "Tokens=1-3 Delims=/ " %%i In ('Echo %date%') Do (
Set "dateT=%%i/%%j/%%k"
Call :DateDiff %%i-%%j-%%k -1 YesT
md C:\sample
md C:\sample\!YesT!
)
for /f "Skip=1 Tokens=1,4* Delims= " %%i in ('dir "C:\sample\*.*" /A:-D /T:C^|Find /i ":"') do (
if "%%i"=="%dateT%" (if "%%k"=="" (Set "F=%%j") else (Set "F=%%j %%k")
move /Y "C:\sample\!F!" C:\sample\%YesT%
))
pause
exit

:DateDiff
Setlocal
For /f "Tokens=1-3 Delims=/-:\, " %%a In ('Echo /%~1') Do Set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100
Set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,i=153*m+2
Set /a i=i/5+dd+y*365+y/4-y/100+y/400-2472633+%~2
Set /a a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
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
Set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
Set mm=0%mm%
Set dd=0%dd%
Endlocal &Set %3=%yy%-%mm:~-2%-%dd:~-2%
Goto :Eof

shy20070509 · 发表于 2023-9-5 11:37:34

chiannet 发表于 2023-9-5 11:28
@echo off
SetLocal EnableDelayedExpansion

⺧人啊

chiannet · 发表于 2023-9-5 11:56:10

本帖最后由 chiannet 于 2023-9-5 11:58 编辑

@echo off
SetLocal EnableDelayedExpansion
For /f "Tokens=1-3 Delims=/ " %%i In ('Echo %date%') Do (
SET B=0%%j&SET C=0%%k
Set "dateT=%%i/!B:~-2!/!C:~-2!"
Call :DateDiff %%i-%%j-%%k -1 YesT
md C:\sample 2>nul
md C:\sample\!YesT! 2>nul
)
if exist C:\sample\%YesT% (
for /f "Skip=1 Tokens=1,4* Delims= " %%i in ('dir "C:\sample\*.*" /A:-D /T:C^|Find /i ":"') Do (
for /f "Tokens=1-3 Delims=/" %%A in ('echo %%i') Do (
SET B=0%%B&SET C=0%%C
if "%%A/!B:~-2!/!C:~-2!"=="%dateT%" (
if "%%k"=="" (Set "F=%%j") else (Set "F=%%j %%k")
move /Y "C:\sample\!F!" C:\sample\%YesT%
))))
pause
exit
:DateDiff
Setlocal
For /f "Tokens=1-3 Delims=/-:\, " %%a In ('Echo /%~1') Do Set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100
Set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,i=153*m+2
Set /a i=i/5+dd+y*365+y/4-y/100+y/400-2472633+%~2
Set /a a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
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
Set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
Set mm=0%mm%
Set dd=0%dd%
Endlocal &Set %3=%yy%-%mm:~-2%-%dd:~-2%
Goto :Eof

复制代码

pengfangzhi · 发表于 2023-9-5 11:58:03

@echo off
setlocal
REM 第一步：创建以昨天日期命名的文件夹
set "yyyy=%date:~-4%"
set "mm=%date:~3,2%"
set "dd=%date:~6,2%"
set "HH=%time:~0,2%"
set "MM=%time:~3,2%"
set "ss=%time:~6,2%"
set "datetime=%yyyy%%mm%%dd%_%HH%%MM%%ss%"
set "folder=C:\sample\%datetime%"
mkdir "%folder%"
REM 第二步：移动非当天文件到新文件夹
for /f %%A in ('dir /b /a-d "C:\sample*"') do (
if !datetime! neq %%~tA (
move "%%A" "%folder%"
)
)
endlocal

复制代码

以下是一个可以完成你需求的批处理脚本，但请注意批处理脚本在执行时会比较直接，且不提供确认提示，所以请在执行前确保已经备份了重要数据。百度的AI写的

pengfangzhi · 发表于 2023-9-5 12:00:48

此脚本会先创建一个以昨天日期命名的文件夹，然后将C:\sample下所有非当天的文件移动到这个新文件夹中。如果该文件已经在新的文件夹中存在，将会被覆盖。如果你不想覆盖已存在的文件，你可以将move命令改为copy命令

helloman · 发表于 2023-9-5 12:01:00

chiannet 发表于 2023-9-5 11:28
@echo off
SetLocal EnableDelayedExpansion

试了下，第一步符合楼主要求，第二步把今天生成的文件移动到该文件夹了，以前的文件没有移动

schdtv · 发表于 2023-9-5 12:06:45

pengfangzhi 发表于 2023-9-5 11:58
以下是一个可以完成你需求的批处理脚本，但请注意批处理脚本在执行时会比较直接，且不提供确认提示，所以请 ...

百度的AI都能干这事儿啦

pengfangzhi · 发表于 2023-9-5 12:10:32

schdtv 发表于 2023-9-5 12:06
百度的AI都能干这事儿啦

自己去试试就知道了，现在开放了，都能用的。

legou · 发表于 2023-9-5 12:33:57

直接让ChatGPT帮你写就好了

martin313 · 发表于 2023-9-5 12:42:52

AI 技术，牛逼

铿锵玫瑰 · 发表于 2023-9-5 14:02:12

麻烦楼主，7楼大牛提供的用的效果如何？请反馈，谢谢！

szmsys · 发表于 2023-9-5 14:16:52

chiannet 发表于 2023-9-5 11:56

今天新建的文件，也被移动到文件夹里了，咋回事？

szmsys · 发表于 2023-9-5 14:23:04

chiannet 发表于 2023-9-5 11:56

经测试，今天新建的文件被移动到文件夹，但是昨天前天的文件没有被移动，老大是不是搞反了逻辑？谢谢发

ppll2030 · 发表于 2023-9-5 15:19:20

同样的问题居然又开了个新帖。不怕斑竹关你一天小黑屋啊

我在那边回复你了。
http://bbs.wuyou.net/forum.php?mod=redirect&goto=findpost&ptid=437172&pid=5028652&fromuid=767159

chiannet · 发表于 2023-9-5 16:11:50

szmsys 发表于 2023-9-5 14:23
经测试，今天新建的文件被移动到文件夹，但是昨天前天的文件没有被移动，老大是不是搞反了逻辑？谢谢发

这句

if "%%A/!B:~-2!/!C:~-2!"=="%dateT%" (

复制代码

改成

if not "%%A/!B:~-2!/!C:~-2!"=="%dateT%" (

复制代码

yc2428 · 发表于 2023-9-5 16:22:43

学习一下

ppll2030 · 发表于 2023-9-5 18:31:57

一码多用

@echo off
title: 查找和移动非当天创建的文件
rem 修改系统日期格式为yyyy/mm/dd，与cmd统一格式，方便下面关键字查询
reg add "HKCU\Control Panel\International" /f /v "sShortDate" /t REG_SZ /d "yyyy/MM/dd"
(echo yd=Date(^)-1
echo wscript.echo yd
) > yd.vbs
for /f %%a in ('cscript yd.vbs') do set yd=%%a
del /q yd.vbs
SET YYD=%yd:/=-%
echo.&echo 即将把%date%以前(不含当日)创建的文件全部转移到%YYD%文件夹下。
echo.&pause
set p=c:\sample
md "%p%\%YYD%" >nul 2>nul
FOR /f "tokens=3,*" %%a IN ('dir /a-d /tc %p% ^| FINDSTR /ilvc:"%date%"') DO move "%p%\%%b" "%p%\%YYD%" >nul
cls&echo.&echo %date%以前创建的文件转移完成。
timeout /t 2 >nul

复制代码

helloman · 发表于 2023-9-5 20:39:44

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

这个好用！

helloman · 发表于 2023-9-5 20:41:14

chiannet 发表于 2023-9-5 16:11
这句

改了后把今天及以前的文件都移动到了新建的文件夹

ppll2030 · 发表于 2023-9-5 20:49:29

helloman 发表于 2023-9-5 20:39
这个好用！

好用就留着用哈，虽然我不知道有什么用

暗影夺魄 · 发表于 2023-9-5 20:55:31

不懂，进来看看

helloman · 发表于 2023-9-5 21:11:48

ppll2030 发表于 2023-9-5 20:49
好用就留着用哈，虽然我不知道有什么用

我主要是收拾电脑桌面用，所以把目录改了用挺好。不知道楼主是干啥用

szmsys · 发表于 2023-9-5 21:38:25

edison_2008 发表于 2023-9-5 15:55
chatGPT写的

这个是不是那个帖子所有修改的最终版？

szmsys · 发表于 2023-9-5 21:39:01

helloman 发表于 2023-9-5 21:11
我主要是收拾电脑桌面用，所以把目录改了用挺好。不知道楼主是干啥用

我也是

xxxyyy1 · 发表于 2023-9-5 22:33:23

为啥不问问gpt

dvs909 · 发表于 2023-9-5 23:49:08

import os
import shutil
from datetime import datetime, timedelta

# 获取昨天的日期
yesterday = (datetime.now() - timedelta(days=1)).strftime('%Y-%m-%d')

# 构建新文件夹的路径
new_folder_path = os.path.join('C:\\sample', yesterday)

# 创建新文件夹
if not os.path.exists(new_folder_path):
os.mkdir(new_folder_path)
print(f'已创建文件夹: {new_folder_path}')

# 遍历C:\sample下的文件和文件夹
for root, dirs, files in os.walk('C:\\sample'):
for file in files:
      file_path = os.path.join(root, file)
      # 获取文件的最后修改日期
      file_modified_date = datetime.fromtimestamp(os.path.getmtime(file_path)).strftime('%Y-%m-%d')
      # 如果文件的日期不是今天，将其移动到新文件夹
      if file_modified_date != yesterday:
         try:
            shutil.move(file_path, os.path.join(new_folder_path, file))
            print(f'已移动文件: {file_path} 到 {new_folder_path}')
         except Exception as e:
            print(f'移动文件时出错: {str(e)}')

print('移动操作完成。')

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

本帖最后由 chiannet 于 2023-9-6 00:41 编辑

helloman 发表于 2023-9-5 20:41
改了后把今天及以前的文件都移动到了新建的文件夹

@Echo Off
Setlocal Enabledelayedexpansion
For /f "Tokens=1-3 Delims=/ " %%I In ('Echo %date%') Do (
Set MC=0%%J
Set DC=0%%K
Call :DateDiff %%I-%%J-%%K -1 YesT
Md D:\sample
Md D:\sample\!YesT!
For /f "Skip=1 Tokens=1-3 Delims=/" %%i in ('Dir D:\sample /A:-D /T:C^|Find /i ":"') Do (
Call :GetFN "%%k" F D
If %%i%%j!D! NEQ %%I!MC:~-2!!DC:~-2! Move /Y "D:\sample\!F!" D:\sample\!YesT!
)) 2>nul
Pause
Exit
:GetFN
Set "X=%~1"
Set "Y=%X:~0,28%"
Set "%~2=!X:%Y%=!"
Set "%~3=%X:~0,2%"
Goto :Eof
:DateDiff
Setlocal
For /f "Tokens=1-3 Delims=/-:\, " %%a In ('Echo /%~1') Do Set /a yy=%%a,mm=100%%b%%100,dd=100%%c%%100
Set /a z=14-mm,z/=12,y=yy+4800-z,m=mm+12*z-3,i=153*m+2
Set /a i=i/5+dd+y*365+y/4-y/100+y/400-2472633+%~2
Set /a a=i+2472632,b=4*a+3,b/=146097,c=-b*146097,c/=4,c+=a
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
Set /a dd=-dd+e+1,mm=-m/10,mm*=12,mm+=m+3,yy=b*100+d-4800+m/10
Set mm=0%mm%
Set dd=0%dd%
Endlocal &Set %3=%yy%-%mm:~-2%-%dd:~-2%
Goto :Eof

复制代码

		自动登录	找回密码
密码			注册

[已解决] 求助大家写个批处理

评分

评分

评分

浏览过的版块