VBA实现获取文件夹内最大文件功能时代码循环异常无法运行的求助

原代码现存问题 #

• 无目标路径有效性校验：如果Signatures文件夹不存在，首次调用Dir方法会直接触发运行时错误，中断程序
• 无空目录分支逻辑：当文件夹内无匹配的htm/html文件时，程序会弹出空文件名、0字节的无效提示，无明确的状态反馈
• 数值类型限制风险：原代码用Long类型存储文件大小，当单文件大小超过2GB时会出现数值溢出，导致读取的大小值错误
• 循环逻辑边界漏洞：首次Dir返回空值时，后续循环无前置拦截，容易出现空对象引用的报错

修正方案 #

针对以上问题调整后的可运行代码如下：

Sub FindLargestSignature()
    Dim SignaturePath As String
    Dim SignatureFile As String
    Dim fso As Object
    Dim fs As Object
    Dim S As LongLong
    Dim LargeFile As String
    Dim LargeSize As LongLong
    
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 拼接Outlook签名存储路径
    SignaturePath = Environ("appdata") & "\Microsoft\Signatures\"
    ' 校验文件夹存在性
    If Not fso.FolderExists(SignaturePath) Then
        MsgBox "签名存储文件夹不存在，无法执行检索", vbExclamation
        Exit Sub
    End If
    
    ' 初始化最大文件参数
    LargeSize = 0
    LargeFile = ""
    
    ' 获取第一个匹配的格式文件
    SignatureFile = Dir(SignaturePath & "*.htm*", vbNormal)
    ' 无匹配文件的分支处理
    If Len(SignatureFile) = 0 Then
        MsgBox "文件夹内未找到htm/html格式的签名文件", vbInformation
        Exit Sub
    End If
    
    ' 以首个文件大小作为初始对比基准
    Set fs = fso.GetFile(SignaturePath & SignatureFile)
    LargeSize = fs.Size
    LargeFile = SignatureFile
    
    ' 遍历剩余匹配文件完成大小对比
    Do
        SignatureFile = Dir()
        If Len(SignatureFile) > 0 Then
            Set fs = fso.GetFile(SignaturePath & SignatureFile)
            S = fs.Size
            If S > LargeSize Then
                LargeSize = S
                LargeFile = SignatureFile
            End If
        Else
            Exit Do
        End If
    Loop
    
    ' 输出最终结果
    MsgBox "The Largest file is named: " & LargeFile & " and is " & LargeSize & " bytes"
End Sub

调整说明 #

• 补充了FileSystemObject的文件夹存在判断，从根源上避免路径无效的报错
• 增加了两类异常场景的弹窗提示，替代原本无意义的空值输出
• 将文件大小存储变量替换为LongLong类型，支持最大9e18字节的文件大小读取，彻底解决大文件溢出问题
• 保留了原有的Do循环遍历逻辑，仅补充了边界判断，不改动原本的文件对比核心流程

内容的提问来源于stack exchange，提问作者Van Thanh Tran