Perl

@echo off
set f=500
:loop
for /f %%a in ('dir /b *.txt ^| find /c /v ""') do (
    set n=%%a
)
if %n% gtr %f% (
    start hebing.bat
)
ping -n 5 127.1 >nul
goto :loop
复制代码