标题: [文件操作] 求个批处理,或VBS,把文件夹里指定日期的文件 移动到 新建的以日期为名称的文件夹里 [打印本页]
作者: szmsys 时间: 2023-9-4 09:59 标题: 求个批处理,或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 全部文件移动到这个文件夹里,不是此日期生成的文件,不移动。
作者: Five66 时间: 2023-9-4 14:14
本帖最后由 Five66 于 2023-9-4 14:16 编辑
啊,这居然要是昨天的
作者: Batcher 时间: 2023-9-4 14:40
回复 1# szmsys
请参考Q-04把bat文件保存为ANSI编码放在C:\sample文件夹下:
https://mp.weixin.qq.com/s/Koje4FufWxWBs7ioDy_LJA- @echo off
- cd /d "%~dp0"
- REM 指定天数
- set "DaysAgo=1"
- for /f %%i in ('powershell -c "Get-Date (Get-Date).AddDays(-%DaysAgo%) -uformat "%%Y-%%m-%%d""') do (
- set "DstDate=%%i"
- )
- if not exist "%DstDate%" (
- md "%DstDate%"
- )
- move "%DstDate%-*.txt" "%DstDate%"
复制代码
每天定时执行请参考:批处理系统管理之4 - 任务计划篇
https://mp.weixin.qq.com/s/LKTmJuq45bZbxoGVTfla1w
作者: Five66 时间: 2023-9-4 15:01
不知这样行否- @set @theCopyLeft=0;/*&echo off
- set "ph=C:\sample"
- for /f %%a in ('cscript //nologo -e:jscript "%~f0"') do (
- if not exist "%%a" md "%%a"
- for /f "delims=" %%i in ('dir /b /a-d "%ph%\*" ^|findstr /b "%%a"') do (
- move "%ph%\%%i" "%%a\"
- )
- )
- echo done&echo 4秒后自动关闭&timeout /t 4
- exit/b
- rem */
-
- var aaaaaa=new Date();
- aaaaaa.setHours(-24);//天数 1x24小时
- var bbb=aaaaaa.toLocaleString().substr(0,10).replace('/','-');
- WScript.Echo(bbb);
复制代码
作者: Batcher 时间: 2023-9-5 10:57
【新需求】
第一步:在 C:\sample 下 生成一个以昨天的日期命名的文件夹:YYYY-MM-DD
第二步:把 C:\sample 下 生成日期不是今天的文件,全部移动到这个新建文件夹里
【新方案】- @echo off
- cd /d "%~dp0"
- REM 指定天数
- set "DaysAgo=1"
- for /f %%i in ('powershell -c "Get-Date (Get-Date).AddDays(-%DaysAgo%) -uformat "%%Y-%%m-%%d""') do (
- set "DstDate=%%i"
- )
- if not exist "%DstDate%" (
- md "%DstDate%"
- )
- for /f %%i in ('powershell "Get-Date -uformat '%%Y-%%m-%%d'"') do (
- set "Today=%%i"
- )
- for /f "delims=" %%i in ('dir /b /a-d *.txt ^| findstr /v /b "%Today%"') do (
- move "%%i" "%DstDate%"
- )
- pause
复制代码
作者: szmsys 时间: 2023-9-5 12:10
回复 5# Batcher
群主好!经过测试,发现2个问题:
1、今天的文件也被移动到新建文件夹里了。
2、没有设置操作文件夹路径的地方,比如 c:\sample
d:\samlpe
作者: Nsqs 时间: 2023-9-5 13:53
本帖最后由 Nsqs 于 2023-9-5 17:26 编辑
- # 2>nul&cls&title by Nsqs&powershell -noprofile -executionpolicy bypass "gc '%~f0'|Out-String|iex" & pause&exit
-
- $esc=[char]0x1b
- $ReadDate=-1
- $SourcePath=[System.IO.DirectoryInfo]::new('.').FullName
- $wa=New-Object -ComObject Word.Application
- $Main=$wa.Tasks|?{$_.Name -match 'by Nsqs'}
- do{
- cls
- " 使用方法
-
- $esc[92m输入日期时间,会计算当前目录下创建日期为前一天的文件$esc[0m
-
- 比如输入: $esc[96m参数 说明$esc[0m
- $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 都行
- $esc[93m输入参数$esc[0m $esc[6;91m-d$esc[0m $esc[91mD:\ABC$esc[0m 会跳转至目标路径,然后可以再做处理
- $esc[93m输入参数$esc[90m $esc[6;91m-e$esc[0m 设置需要处理的文件, 或多个文件以逗号分隔,比如 $esc[91m*.txt,*.xlsx$esc[0m 等等
- $esc[93m输入参数$esc[90m $esc[6;91m-r$esc[0m 返回当前目录
-
- $esc[93m示例:$esc$esc[94m
- -d C:\sample\ -e *.txt$esc[0m
- "
- "当前目录所在地址:`n$esc[94m$((gl).Path)$esc[0m`n"
- "当前可能指向的文件:`n$esc[6;94m$(if(!$ext){'所有文件'}else{$ext})$esc[0m`n"
- if($ReadDate -match '^(-d|-e)$'){"$esc[91m参数必须包含空格隔开!$esc[0m"}
- $ReadDate=Read-Host @(if($ReadDate -eq -1 -or $ReadDate -match '-[ed]'){'请输入日期'}elseif($ReadDate -notmatch '\d{4}.\d+.?\d*' -and $ReadDate){'输入的不是日期格式'}else{'输入不能为空!(可输入q退出)'})
- if($ReadDate -match '-d '){pushd ([regex]::Matches($ReadDate,'.*-d (.+?) +?.*').groups[1].value)}
- if($ReadDate -match '-e '){$ext=[regex]::Matches($ReadDate,'.*-e (.+ *).*').groups[1].value}
- if($ReadDate -match '^-r$'){pushd $SourcePath}
- }until($ReadDate -eq 'q' -or $ReadDate -match '\d{4}.\d+.?\d*' -and $ReadDate -notmatch '^-d \d{4}.\d+.?\d*$')
- if($ReadDate -eq 'q'){$Main.Close();return}
- $ReadDate=$ReadDate -replace ' *-d \d{4}.\d+.?\d* *'
- $ReadDate=[regex]::Matches($ReadDate,'.*(\d{4}.\d+.?\d*).*').groups[1].value
- if($ReadDate -match '^\d{4}.\d+$'){
- $ReadDate=[datetime]$ReadDate
- $lastDay=[datetime]::DaysInMonth($ReadDate.Year,$ReadDate.Month)
- $ReadDate=[datetime]"$($ReadDate.ToString('yyyy-MM'))-$lastDay"
- }else{
- $ReadDate=[datetime]$ReadDate
- }
- $FileDate=dir $ext -File|?{$_.CreationTime.Date -eq $ReadDate.AddDays(-1)}
- if(!$FileDate){"$esc[91m发现没有找到当前目录下昨天的日期类文件$esc[0m";return}
- $FileDate|%{
- $folder=([datetime]$ReadDate).AddDays(-1).ToString('yyyy-MM-dd')
- md $folder -Force
- move $_ $folder -Force
- }
- "$esc[91m`n`n处理完毕!$esc[0m"
复制代码
以文件创建日期为准
欢迎光临 批处理之家 (http://bbs.bathome.net/) |
Powered by Discuz! 7.2 |