VBA修改文件扩展名

Dim result As Integer

Private Sub CommandButton2_Click()
    
    Dim first As String
    Dim second As String
    
    first = range("I13")
    second = range("K13")
    
    result = 0
    
    Call getAllDir("g:\test\", first, second)
    
    range("I14") = "修改完成，共修改" & result & "件"
    
End Sub

Private Sub getAllDir(dirs As String, oldExt As String, newExt As String)

    Dim Tochange As String
    Dim sf As String
    Dim allSun() As String
    Dim i As Integer
    
    i = 1
    Tochange = Dir(dirs)
    Call changeName(dirs, oldExt, newExt)
    sf = Dir(dirs, vbDirectory)
    Do While sf <> ""
        If sf <> "." And sf <> ".." Then
            If (GetAttr(dirs & sf) And vbDirectory) = vbDirectory Then
                ReDim Preserve allSun(1 To i) As String
                allSun(i) = dir