能否为VBScript的if语句添加多条件 实现按规则自动删除旧文件

现有代码的核心问题 #

• 冗余判断逻辑：VBScript 中无需在条件语句后追加= True/False的重复判定，这类写法会降低代码可读性且容易引发逻辑误判
• 匹配规则错位：当前代码用objFile.Type做扩展名匹配，实际该属性返回的是系统对文件的类型描述（如“JPEG 图像”），和文件扩展名完全不是一个维度的判定
• 流程顺序错误：网络驱动器映射完成后立刻执行移除操作，后续的文件夹遍历根本无法正常访问共享路径
• 边界范围缺失：你提到的“仅删除5天以上的旧文件”规则，没有把时间范围的边界做闭环，容易出现误删或漏删

调整后的可运行参考代码 #

Option Explicit
Dim objFSO, objNetwork
Dim remoteShare, authUser, authPwd, targetFolder, matchExt, timeThreshold

' 初始化核心对象
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objNetwork = WScript.CreateObject("WScript.Network")

' 替换为实际业务配置
remoteShare = "\\共享服务器地址\共享根路径"
authUser = "共享访问账号"
authPwd = "共享访问密码"
targetFolder = "X:\需要执行文件清理的目标目录"
matchExt = "log" ' 需要清理的文件扩展名，不带前缀点号
timeThreshold = DateAdd("d", -5, Now()) ' 设定5天的保留周期阈值

' 先完成网络驱动器映射，再执行后续操作
objNetwork.MapNetworkDrive "X:", remoteShare, False, authUser, authPwd

' 遍历目标目录下的所有文件
Dim objFile
For Each objFile In objFSO.GetFolder(targetFolder).Files
    ' 匹配规则：扩展名一致 + 修改时间早于阈值
    If LCase(objFSO.GetExtensionName(objFile.Path)) = LCase(matchExt) And objFile.DateLastModified < timeThreshold Then
        ' 执行强制删除
        objFSO.DeleteFile objFile.Path, True
    End If
    ' 不满足判断条件的文件直接跳过，无需冗余分支
Next

' 清理操作完成后再移除网络映射
objNetwork.RemoveNetworkDrive "X:", True, True

' 释放资源
Set objFSO = Nothing
Set objNetwork = Nothing

实用注意点 #

• 首次测试脚本时，可以将删除操作替换为WScript.Echo "将删除文件：" & objFile.Path，逐行确认待删除的文件范围符合预期后，再开启实际删除逻辑
• 如果需要实现“仅删除5-10天区间内的文件”的规则，只需在If判断中追加一个时间上限条件：And objFile.DateLastModified > DateAdd("d", -10, Now())
• 脚本默认仅遍历目标文件夹根目录下的文件，如需覆盖子文件夹内的内容，可补充对子文件夹的递归遍历逻辑

内容的提问来源于stack exchange，提问作者Kai jie