从Access VBA自动递增创建的文件夹名称

Sub CreateFolder()
    Dim fso As Object
    Dim folderPath As String
    Dim folderName As String
    Dim folderNumber As Integer
    
    ' 设置文件夹路径
    folderPath = "C:\Path\To\Folder\"
    
    ' 创建FileSystemObject对象
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    ' 获取最新的文件夹编号
    folderNumber = GetLatestFolderNumber(fso, folderPath)
    
    ' 构建文件夹名称
    folderName = "Folder_" & folderNumber + 1
    
    ' 创建文件夹
    fso.CreateFolder folderPath & folderName
    
    ' 释放对象
    Set fso = Nothing
End Sub

Function GetLatestFolderNumber(fso As Object, folderPath As String) As Integer
    Dim folder As Object
    Dim folderName As String
    Dim latestNumber As Integer
    
    ' 获取文件夹路径下的所有文件夹
    For Each folder In fso.GetFolder(folderPath).SubFolders
        folderName = folder.Name
        
        ' 检查文件夹名称是否符合要求
        If Left(folderName, 7) = "Folder_" Then
            ' 提取文件夹编号
            folderNumber = CInt(Mid(folderName, 8))
            
            ' 更新最新的文件夹编号
            If folderNumber > latestNumber Then
                latestNumber = folderNumber
            End If
        End If
    Next folder
    
    ' 返回最新的文件夹编号
    GetLatestFolderNumber = latestNumber
End Function