如何让我的批处理脚本可以删除旧文件？

Question

在一个文件夹内（如c：\ test）我想删除最旧的文件，如果文件数超过21个。

这是我想出的问题是它一次删除最旧的文件，第二次运行它什么也不做，并删除最老的第三，继续这样。也不关心文件数量是否低于21，即使更低也会删除。

下面是代码：

SET BACKUPDIR=C:\test 
SET countfiles=dir BACKUPDIR /b | find /v /c "::" 

if countfiles GTR 21 (
FOR /F %%i IN ('DIR /B /O-D %BACKUPDIR%') DO SET OLDEST=%%i 
DEL %BACKUPDIR%\%OLDEST% 
) 

Answer 1

这里是在VBScript中的另类，，遍历该目录只有一次。

Set objFS=CreateObject("Scripting.FileSystemObject") 
Set objArgs = WScript.Arguments 
strFolder = objArgs(0) 
strScriptName = WScript.ScriptFullName 'get script name 
Set objFolder = objFS.GetFolder(strFolder) 
Set dict = CreateObject("Scripting.Dictionary") 
current = Now 
temp=0 
count=0 'count files 
For Each strFile In objFolder.Files 
    If strFile.Path <> strScriptName Then 'do if not script name 
     count=count+1 
     dict.Add strFile.Path, strFile.DateLastModified 
     'if there are more than 21 files 
     If count >= 21 Then 
     flag=1 
     End If 
    End If 
Next 

filedate = dict.Items 
filename = dict.keys 
If flag = 1 Then 
    For i = 0 To dict.Count -1 'iterate dictionary 
     diffdate = DateDiff("d",filedate(i),now) 
     If num_days_diff >= temp Then 
     oldestfile = filename(i) 
     oldestdate = filedate(i) 
     temp = num_days_diff 
     End If    
    Next 
End If 
Set dict=Nothing 
WScript.Echo "Oldest file: " & oldestfile, oldestdate 
objFS.DeleteFile(oldestfile) 

另存为deletefile.vbs和命令行

c:\test> cscript /nologo deletefile.vbs c:\path\somewhere 

Answer 2

有许多与此问题。

1. 环境变量与文本字符串：

   SET countfiles=dir BACKUPDIR /b | find /v /c "::" 
   

   在这里，我们试图在一个名为“BACKUPDIR”目录中列出的文件，而不是使用环境变量。它应该是

   SET countfiles=dir %BACKUPDIR% /b | find /v /c "::" 
   

2. 你获得的文件数量的尝试：

   SET countfiles=dir %BACKUPDIR% /b | find /v /c "::" 
   

   不可能工作。这只是将字符串'dir BACKUPDIR /b | find /v /c "::" '分配给环境变量countfiles。它不会运行任何东西 - cmd应该如何知道这是一个要执行的命令？

   你想要的是以下几点：

   for /f %%x in ('dir %BACKUPDIR% /b ^| find /v /c "::"') do set countfiles=%%x 
   

   这将countfiles环境变量的内容设置为上述命令的输出。您可以通过help for找到更多相关信息。

3. 您的比较：

   if countfiles GTR 21 
   

   这个比较串"countfiles"和字符串"21"。并且由于countfiles在21之后得到排序，所以此情况将始终为真。

   你想使用环境变量%countfiles%这里：

   if %countfiles% GTR 21 
   

4. 你试试“正常”，“块”中的变量扩展：

   ​​

   由于cmd在解析时立即展开环境变量一个命令会导致问题。请注意，上面的块作为cmd的单个命令。完整的程序块在运行前会被解析，并且所有的变量在运行时都会被替换掉，所以这不是正确的方法来处理那些可能会改变这个块的变量。

   这里的解决方案是延迟扩展。您可以包括您的批处理开始下面一行：

   ​​

   而是采用可变像%OLDEST%您使用!OLDEST!和。 !也扩展了变量，但是在执行之前直接执行，而不是在解析时执行。所以，你的代码段会成为：

   if %countfiles% GTR 21 (
       FOR /F %%i IN ('DIR /B /O-D %BACKUPDIR%') DO SET OLDEST=%%i 
       DEL %BACKUPDIR%\!OLDEST! 
   ) 
   

5. 万一你期待与空格的文件名时，for /f循环中的最后一块没有达到预期效果。你可以修改它是这样的：

   for /f "delims=" %%i in ... 
   

   这确保了线不破的空间（你会得到公正的第一个标记，到第一个空格的文件的名称，而不是完整的文件。名字

所以，总结，你的程序可能看起来像下面这样：

SET BACKUPDIR=C:\test 
for /f %%x in ('dir %BACKUPDIR% /b ^| find /v /c "::"') do set countfiles=%%x 

if %countfiles% GTR 21 (
    FOR /F "delims=" %%i IN ('DIR /B /O-D %BACKUPDIR%') DO SET OLDEST=%%i 
    DEL %BACKUPDIR%\!OLDEST! 
) 

，并应大致工作，我没有测试过它（床话费）每一个方面，但我。确信它有效比以前更好，我希望你能理解上面的修正和为什么它们是必要的。

顺便说一句：find /v /c "::"是一个漂亮的小动作。不知道那一个或想到它。

以防万一：如果您确实想继续删除最旧的文件，直到您的文件数降至21以下，那么该单一的if将不会削减它。您需要设置一个循环，要么继续迭代并重新计算每次迭代，要么计算需要删除的文件数量。尽管如此，我将把它作为一个练习。 （提示：循环可以有标签和条件goto S或使用for /l完成后者需要更多的延迟扩展，虽然，所以要小心。）