[文件操作] 求个批处理，或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 全部文件移动到这个文件夹里，不是此日期生成的文件，不移动。

Nsqs

# 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"
复制代码

以文件创建日期为准

szmsys

回复 5# Batcher

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

Batcher

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

Five66

不知这样行否

@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

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

啊,这居然要是昨天的