删除指定日期文件的批处理在我电脑可以运行，换公司电脑为何失败？

小黄桃

1. @echo off
   
2. ::get the date
   
3. >del_7Days_data.vbs echo wscript.echo dateadd("d",-7,date)
   
4. for /f "tokens=1,2,3* delims=-" %%i in ('cscript /nologo Del_7Days_data.vbs') do (
   
5. set y=%%i
   
6. set m=%%j
   
7. set d=%%k
   
8. )
   
9. if %m% LSS 10 set m=0%m%
   
10. if %d% LSS 10 set d=0%d%
    
11. set ht=%y%-%m%-%d%
    
12. echo Delete The eclipse TCPlan before %ht%
    
13. pause
    
14. ::Judge the file
    
15. for /f "skip=4 delims=" %%i in ('dir/tc F:\sfssfd\hwll_*.pln') do call :w "%%i"
    
16. del_7Days_data.vbs
    
17. goto :eof
    
18. :w
    
19. for /f "tokens=4 delims= " %%a in (%1) do set str=%%a
    
20. set var=%1
    
21. set num=%var:~1,10%
    
22. if %num% lss %ht% del /q F:\sfssfd\%str%

复制代码

把5、6、7行的语句注释掉就能运行到 pause那里，就是双击这个bat文件之后没反应，出现这个CMD窗口了，然后瞬间就关闭了，结果是啥都没运行，这个pause也没体现出来。
公司电脑没有任何第三方软件，所以没有木马和360的软件，就一个系统，而且此电脑无法上网，肯定排除木马等因素。请给予帮助，谢谢！！

weichenxiehou

回复 1# 小黄桃
猜测是你家里的电脑和公司的电脑显示的时间格式不一样，也就是时间中间并不是以"-"作为分隔符。试试：

1. 
   
2. @echo off
   
3. ::get the date
   
4. >del_7Days_data.vbs echo wscript.echo dateadd("d",-7,date)
   
5. for /f "tokens=1,2,3* delims=/" %%i in ('cscript /nologo Del_7Days_data.vbs') do (
   
6. set y=%%i
   
7. set m=%%j
   
8. set d=%%k
   
9. )
   
10. if %m% LSS 10 set m=0%m%
    
11. if %d% LSS 10 set d=0%d%
    
12. set ht=%y%/%m%/%d%
    
13. echo Delete The eclipse TCPlan before %ht%
    
14. pause
    
15. ::Judge the file
    
16. for /f "skip=4 delims=" %%i in ('dir/tc F:\sfssfd\hwll_*.pln') do call :w "%%i"
    
17. del_7Days_data.vbs
    
18. goto :eof
    
19. :w
    
20. for /f "tokens=4 delims= " %%a in (%1) do set str=%%a
    
21. set var=%1
    
22. set num=%var:~1,10%
    
23. if %num% lss %ht% del /q F:\sfssfd\%str%
    

复制代码

920168

1. @echo off
   
2. ::get the date
   
3. >del_7Days_data.vbs echo wscript.echo dateadd("d",-7,date)
   
4. for /f "tokens=1,2,3* delims==-/. " %%i in ('cscript /nologo Del_7Days_data.vbs') do (
   
5. set y=%%i
   
6. set m=%%j
   
7. set d=%%k
   
8. )
   
9. if %m% LSS 10 set m=0%m%
   
10. if %d% LSS 10 set d=0%d%
    
11. set ht=%y%/%m%/%d%
    
12. echo Delete The eclipse TCPlan before %ht%
    
13. pause
    
14. ::Judge the file
    
15. for /f "skip=4 delims=" %%i in ('dir/tc F:\sfssfd\hwll_*.pln') do call :w "%%i"
    
16. del_7Days_data.vbs
    
17. goto :eof
    
18. :w
    
19. for /f "tokens=4 delims= " %%a in (%1) do set str=%%a
    
20. set var=%1
    
21. set num=%var:~1,10%
    
22. if %num% lss %ht% del /q F:\sfssfd\%str%

复制代码