@echo off&setlocal ENABLEDELAYEDEXPANSION&chcp 936>nul

rem 给当前目录内的非隐藏文件添加ok标志 20:53 2011-6-12
rem （文件名含有“证券清算文件.txt”字符串的，扩展名为.ok的文件 不进行处理）

(
echo dt = CreateObject("scripting.filesystemobject"^).GetFile(WScript.Arguments(0^)^).DateLastModified
echo WScript.Echo Split(dt, " "^)(0^) ^& "|" ^& Split(dt, " "^)(1^)
)>%tmp%\getime.vbs

set lf=^


:: 上面必须空两行
for /f %%a in ('copy/z %~s0 nul')do set cr=%%a

for /f "tokens=1-2 delims==" %%a in ('set $out 2^>nul')do set %%a=

for /f "delims=" %%a in (
    %= dir命令后面跟文件通配符 =%
    ' dir/a-d/b *.* 2^>nul ^|find /v "证券清算文件.txt" '
)do if "%%~nxa" neq "%~nx0" if "%%~xa" neq ".ok" (

    set "nxa=%%~nxa"
    set "fa=%%~fa"

    for /f "tokens=1-4 delims=-|" %%A in (
        'cscript //nologo %tmp%\getime.vbs "!fa!"'
    )do set y=%%A&set m=0%%B&set d=0%%C&set tm=0%%D

    set ymd=!y!!m:~-2!!d:~-2!

    for %%p in ($out!ymd!)do set "%%p=!%%p!%%~nxa|%%~za|!ymd!|!tm:~-8!\n"

    set file=!ymd!证券清算文件.txt
    set/p=<nul>"!nxa!.ok"
    set/p=<nul>!file!.ok
    echo !nxa!&echo ................................... OK^^!
)

for /f "tokens=1-2 delims==" %%a in ('set $out')do (
    set s=%%b&set file=%%a
    for %%f in ("!cr!!lf!")do set/p=!s:\n=%%~f!<nul>"!file:*$out=!证券清算文件.txt"
)
pause
复制代码

for %%f in ('!cr!!lf!')do set/p=!s:\n=%%~f!<nul>"!file:*$out=!证券清算文件.txt"
复制代码