change specific file extension

[Dossfm0q]

How change specific file extension ?

Sub changeExt()


    strDir = ThisWorkbook.Path & "\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(strDir)
        With CreateObject("wscript.shell")
          For Each file In f.Files
          
            If InStr(file.Name, "root.zip") > 0 Then
            .currentdirectory = strDir
           .Run "%comspec% /c ren *.zip *.docx", 0, True
            End If
          Next
        End With


End Sub


Sub changeExt1()


    strDir = ThisWorkbook.Path & "\"
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(strDir)
        With CreateObject("wscript.shell")
          For Each file In f.Files
          
            If InStr(file.Name, "root.docx") > 0 Then
            .currentdirectory = strDir
           .Run "%comspec% /c ren *.docx *.zip", 0, True
            End If
          Next
        End With


End Sub

 

[Logit]

.
I'm not certain it is possible to change a file's extension to / from ZIP and expect it to function correctly.

If you want a file to have the extension ZIP, I believe you will need to actually ZIP that file. There are macros on the NET that can do that for you.
Likewise with going FROM zip to another extension. You will need to UNZIP it. There are macros on the NET that can do that for you.

 

[Dossfm0q]

Thanks For respond

I found below macro and it work well need to go to VBAproject Tools >> reference and Check "Microsoft Scripting Runtime"

Public Sub CnvrtExtn()

StrPath = ThisWorkbook.Path '<<<<<< to be change as file path is
Call ConvertToTXT(StrPath)
End Sub
Private Sub ConvertExtension(filePath As String)

    With New Scripting.FileSystemObject
        Dim directory As Folder
        Set directory = .GetFolder(filePath)
        Dim target As File
        For Each target In directory.Files
            If InStr(target.Name, "MyFile.zip") > 0 Then ' or ".zip"
                Dim newName As String
                newName = .BuildPath(filePath, .GetBaseName(MyFile.Name)) & "MyFile.docx" ' or ".docx"
                .MoveFile target.Path, newName
            End If
        Next
    End With
End Sub