[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

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

求助大家,做个批处理,或者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 全部文件移动到这个文件夹里,不是此日期生成的文件,不移动。

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

TOP

回复 5# Batcher

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

TOP

【新需求】
第一步:在 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
复制代码
1

评分人数

我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

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

评分人数

    • szmsys: 谢谢,我试试技术 + 1

TOP

回复 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
1

评分人数

    • szmsys: 谢谢,我试试技术 + 1
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 Five66 于 2023-9-4 14:16 编辑

啊,这居然要是昨天的

TOP

返回列表