求个批处理，或VBS，把文件夹里指定日期的文件 移动到 新建的以日期为名称的文件夹里

szmsys

求助大家，做个批处理，或者VBS，每天运行，把文件夹里指定日期的文件 移动到 新建的以日期为名称的文件夹里，比如：

C:\sample\ 里面有按日期生成的文件：
2023-09-01-1.txt
2023-09-01-2.txt
。。。
2023-09-02-1.txt
2023-09-02-2.txt
。。。
2023-09-03-1.txt
2023-09-03-2.txt
。。。

批处理，或vbs，在 C:\sample\ 里面生成一个 以昨天的日期为名称的文件夹，比如，今天是2023年9月4日，则生成一个名称是 2023-09-03 的文件夹，然后，把 C:\sampke 文件夹里 生成日期为 2023-09-03 全部文件移动到这个文件夹里，不是此日期生成的文件，不移动。

Five66

啊,这居然要是昨天的

Batcher

回复 1# szmsys


请参考Q-04把bat文件保存为ANSI编码放在C:\sample文件夹下：
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA

1. @echo off
   
2. cd /d "%~dp0"
   
3. REM 指定天数
   
4. set "DaysAgo=1"
   
5. for /f %%i in ('powershell -c "Get-Date (Get-Date).AddDays(-%DaysAgo%) -uformat "%%Y-%%m-%%d""') do (
   
6.     set "DstDate=%%i"
   
7. )
   
8. if not exist "%DstDate%" (
   
9.     md "%DstDate%"
   
10. )
    
11. move "%DstDate%-*.txt" "%DstDate%"

复制代码

每天定时执行请参考：批处理系统管理之4 - 任务计划篇
https://mp.weixin.qq.com/s/LKTmJuq45bZbxoGVTfla1w

Five66

不知这样行否

1. 
   
2. @set @theCopyLeft=0;/*&echo off
   
3. set "ph=C:\sample"
   
4. for /f %%a in ('cscript //nologo -e:jscript "%~f0"') do (
   
5. if not exist "%%a" md "%%a"
   
6. for /f "delims=" %%i in ('dir /b /a-d "%ph%\*" ^|findstr /b "%%a"') do (
   
7. move "%ph%\%%i" "%%a"
   
8. )
   
9. )
   
10. echo done&echo 4秒后自动关闭&timeout /t 4
    
11. exit/b
    
12. rem */
    
13. 
    
14. var aaaaaa=new Date();
    
15. aaaaaa.setHours(-24);//天数  1x24小时
    
16. var bbb=aaaaaa.toLocaleString().substr(0,10).replace('/','-');
    
17. WScript.Echo(bbb);
    

复制代码

Batcher

【新需求】
第一步：在 C:\sample 下 生成一个以昨天的日期命名的文件夹：YYYY-MM-DD
第二步：把 C:\sample 下 生成日期不是今天的文件，全部移动到这个新建文件夹里

【新方案】

1. @echo off
   
2. cd /d "%~dp0"
   
3. REM 指定天数
   
4. set "DaysAgo=1"
   
5. for /f %%i in ('powershell -c "Get-Date (Get-Date).AddDays(-%DaysAgo%) -uformat "%%Y-%%m-%%d""') do (
   
6.     set "DstDate=%%i"
   
7. )
   
8. if not exist "%DstDate%" (
   
9.     md "%DstDate%"
   
10. )
    
11. for /f %%i in ('powershell "Get-Date -uformat '%%Y-%%m-%%d'"') do (
    
12.     set "Today=%%i"
    
13. )
    
14. for /f "delims=" %%i in ('dir /b /a-d *.txt ^| findstr /v /b "%Today%"') do (
    
15.     move "%%i" "%DstDate%"
    
16. )
    
17. pause

复制代码

szmsys

回复 5# Batcher

群主好！经过测试，发现2个问题：
1、今天的文件也被移动到新建文件夹里了。
2、没有设置操作文件夹路径的地方，比如 c:\sample
d:\samlpe

Nsqs

1. # 2>nul&cls&title by Nsqs&powershell -noprofile -executionpolicy bypass "gc '%~f0'|Out-String|iex" & pause&exit
   
2. 
   
3. $esc=[char]0x1b
   
4. $ReadDate=-1
   
5. $SourcePath=[System.IO.DirectoryInfo]::new('.').FullName
   
6. $wa=New-Object -ComObject Word.Application
   
7. $Main=$wa.Tasks|?{$_.Name -match 'by Nsqs'}
   
8. do{
   
9.         cls
   
10. "        使用方法
    
11. 
    
12.         $esc[92m输入日期时间,会计算当前目录下创建日期为前一天的文件$esc[0m
    
13.        
    
14.         比如输入:  $esc[96m参数                说明$esc[0m
    
15.         $esc[93m输入参数$esc[0m   $esc[6;91m2023-9-20$esc[0m        那么会取当前目录下 $esc[91m2023$esc[0m $esc[94m年 $esc[91m9$esc[0m $esc[94m月$esc[0m $esc[91m19$esc[0m $esc[94m日$esc[0m 这一天的日期的文件, 输入格式随意 xxxx-/xx-/xx 都行
    
16.         $esc[93m输入参数$esc[0m   $esc[6;91m-d$esc[0m                $esc[91mD:\ABC$esc[0m 会跳转至目标路径,然后可以再做处理
    
17.         $esc[93m输入参数$esc[90m   $esc[6;91m-e$esc[0m                设置需要处理的文件, 或多个文件以逗号分隔,比如 $esc[91m*.txt,*.xlsx$esc[0m 等等
    
18.         $esc[93m输入参数$esc[90m   $esc[6;91m-r$esc[0m                返回当前目录
    
19. 
    
20. $esc[93m示例:$esc$esc[94m
    
21. -d C:\sample\ -e *.txt$esc[0m
    
22. "
    
23.         "当前目录所在地址:`n$esc[94m$((gl).Path)$esc[0m`n"
    
24.         "当前可能指向的文件:`n$esc[6;94m$(if(!$ext){'所有文件'}else{$ext})$esc[0m`n"
    
25.     if($ReadDate -match '^(-d|-e)$'){"$esc[91m参数必须包含空格隔开!$esc[0m"}
    
26.         $ReadDate=Read-Host @(if($ReadDate -eq -1 -or $ReadDate -match '-[ed]'){'请输入日期'}elseif($ReadDate -notmatch '\d{4}.\d+.?\d*' -and $ReadDate){'输入的不是日期格式'}else{'输入不能为空!(可输入q退出)'})
    
27.         if($ReadDate -match '-d '){pushd ([regex]::Matches($ReadDate,'.*-d (.+?) +?.*').groups[1].value)}
    
28.         if($ReadDate -match '-e '){$ext=[regex]::Matches($ReadDate,'.*-e (.+ *).*').groups[1].value}
    
29.         if($ReadDate -match '^-r$'){pushd $SourcePath}
    
30. }until($ReadDate -eq 'q' -or $ReadDate -match '\d{4}.\d+.?\d*' -and $ReadDate -notmatch '^-d \d{4}.\d+.?\d*$')
    
31. if($ReadDate -eq 'q'){$Main.Close();return}
    
32. $ReadDate=$ReadDate -replace ' *-d \d{4}.\d+.?\d* *'
    
33. $ReadDate=[regex]::Matches($ReadDate,'.*(\d{4}.\d+.?\d*).*').groups[1].value
    
34. if($ReadDate -match '^\d{4}.\d+$'){
    
35.         $ReadDate=[datetime]$ReadDate
    
36.         $lastDay=[datetime]::DaysInMonth($ReadDate.Year,$ReadDate.Month)
    
37.         $ReadDate=[datetime]"$($ReadDate.ToString('yyyy-MM'))-$lastDay"
    
38. }else{
    
39.         $ReadDate=[datetime]$ReadDate
    
40. }
    
41. $FileDate=dir $ext -File|?{$_.CreationTime.Date -eq $ReadDate.AddDays(-1)}
    
42. if(!$FileDate){"$esc[91m发现没有找到当前目录下昨天的日期类文件$esc[0m";return}
    
43. $FileDate|%{
    
44.         $folder=([datetime]$ReadDate).AddDays(-1).ToString('yyyy-MM-dd')
    
45.         md $folder -Force
    
46.         move $_ $folder -Force
    
47. }
    
48. "$esc[91m`n`n处理完毕!$esc[0m"

复制代码

以文件创建日期为准