如果存在文件创建一个具有版本号的新文件

Question

我正在尝试检查是否存在具有给定名称的文件，并且它是否确实创建了一个新的名称，该名称结束V2，然后是V3等。

Sub checkFileExists()

    Dim strFileExists, strFileName As String
    Dim nextDay as Date
    Dim i As Integer
    
    strFileName = file_name
    strFileExists = Dir(strFileName)

    If strFileExists = vbNullString Then
        strFileName = file_name
    Else
        i = 1
        Do
            i = i + 1
            strFileName = file_name & "_v" & i
            strFileExists = Dir(strFileName)
        Loop Until strFileExists = vbNullString

        strFileName = file_name & "_v" & i
    End If
 
End Sub

上面的代码几乎总是创建文件名，即使此文件已经退出。

strFileName = "Plan_" & Format(nextDay, "yyyy-mm-dd")

Answer 1

此功能将返回下一个未使用的文件名版本：

Function GetNextUnUsedVersionName(FilePath As String, Optional hasExtension As Boolean = True)
    Dim Result As String
    Dim Extension As String
    If (hasExtension) Then Extension = Mid(FilePath, InStrRev(FilePath, "."))
    Result = FilePath
    If Len(Dir(Result)) > 0 Then
        Dim n As Long
        n = 1

        Do
            n = n + 1
            Result = Left(FilePath, Len(FilePath) - Len(Extension)) & "_v" & n & Extension
            DoEvents
        Loop Until Len(Dir(Result)) = 0
    End If
    
    GetNextUnUsedVersionName = Result
End Function