Zip each Excel file in a folder separately. - excel

Question

I am currently stuck trying to zip every file in a folder separately. I do not want to zip the folder or zip all the files together. They need to be zipped separately in order for me to traverse the XML folder later and extract images which are going to be OCR'd. My attempt was to use VBA and just change the file extensions
Sub Create_Zip()
Dim FSO As FileSystemObject
Dim objFile As File
Dim myFolder
Dim strFilename As String
Const zipDir As String = "\\...\Zip Test"
Set FSO = New FileSystemObject
Set myFolder = FSO.GetFolder(zipDir)
For Each objFile In myFolder.Files
strFilename = objFile.Name
new_strFilename = Replace(strFilename, ".xlsx", ".zip")
Next objFile
End Sub
According to the "immediate window" the string variable "new_strFilename" has the file extension ".zip" but I am not seeing the change in the folder.

Answer 1

You assign the new filename to the variable new_strFilename but not to the actual file.
Since you are getting an error when trying objFile.Name = new_strFilename I assume that property is read-only.
In general if you want to rename a file use the Name function:
Name oldFile As newFile
where oldFile and newFile are strings containing the whole path to a file.
In your example something like this:
For Each objFile In myFolder.Files
strFilename = objFile.Name
new_strFilename = Replace(strFilename, ".xlsx", ".zip")
Name zipDir & "\" & strFilename As zipDir & "\" & new_strFilename
Next objFile

Answer 2

Try to use name A as B .
Sub Create_Zip()
Dim FSO As FileSystemObject
Dim objFile As File
Dim myFolder
Dim strFilename As String
Const zipDir As String = "\\...\Zip Test"
Set FSO = New FileSystemObject
Set myFolder = FSO.GetFolder(zipDir)
For Each objFile In myFolder.Files
strFilename = objFile.name
new_strFilename = Replace(strFilename, ".xlsx", ".zip")
Name zipDir & "\" & strFilename As zipDir & "\" & new_strFilename
Next objFile
End Sub