Rename multiple *.jpg Files from English to Other Language

[buvanamali]

Dear Experts

With the following code, I am able to change a single *.jpg file to non English Name and the following code works fine. But my requirement is to rename multiple files.
Also the renamed file doesn't bear the file extn *.jpg.

Sub ChangeFileName(sFile, tFile)
    On Local Error GoTo errors
    Dim fs, f, s
    Set fs = CreateObject("Scripting.FileSystemObject")
    fs.Movefile sFile, tFile
    Set f = Nothing
    Exit Sub
errors:
    MsgBox "File: " & sFile & vbCrLf & Err.Description
    Err.Clear
End Sub

Sub test()
    Const sDir = "C:\temp\"
    ChangeFileName sDir & Range("A1").Value, sDir & Range("B1").Value
End Sub

The above code was found in your forum only.

p.s. Cross posted here: Excel Image Viewer and Rename its File Name
Please help me.

 

[Scott Huish]

Do you have a list with the names in Column A and the renamed name in Column B. If so, does this work for you?

Sub test()
On Error Resume Next
Dim c As Range, fLoc As String
fLoc = "C:\temp\"
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    Name fLoc & c As fLoc & c.Offset(, 1)
Next
End Sub

 

[buvanamali]

Do you have a list with the names in Column A and the renamed name in Column B. If so, does this work for you?

Sub test()
On Error Resume Next
Dim c As Range, fLoc As String
fLoc = "C:\temp\"
For Each c In Range("A1:A" & Range("A" & Rows.Count).End(xlUp).Row)
    Name fLoc & c As fLoc & c.Offset(, 1)
Next
End Sub

Dear Experts
I have a list with the names in B3:B and the renamed name in Column C.
I changed the code as below. However, it doesn't rename the files.

Sub test()
On Error Resume Next
Dim c As Range, fLoc As String
fLoc = "C:\temp\"
For Each c In Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row)
    Name fLoc & c As fLoc & c.Offset(, 2)
Next
End Sub

Thanking you

 

[Scott Huish]

Why did you change the offset to 2? Column C is only 1 away from Column B.

Sub test()
On Error Resume Next
Dim c As Range, fLoc As String
fLoc = "C:\temp\"
For Each c In Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row)
Name fLoc & c As fLoc & c.Offset(, 1)
Next
End Sub

 

[buvanamali]

Why did you change the offset to 2? Column C is only 1 away from Column B.

Sub test()
On Error Resume Next
Dim c As Range, fLoc As String
fLoc = "C:\temp\"
For Each c In Range("B3:B" & Range("B" & Rows.Count).End(xlUp).Row)
Name fLoc & c As fLoc & c.Offset(, 1)
Next
End Sub

Tried as advised but no change in file name.
Please.

 

[Scott Huish]

I did test this. Is C:\temp\ the correct directory? Do you have the complete file name in the cells including the extension?

 

[Scott Huish]

Book1
	A	B	C
1
2
3		a.txt	ab.txt
4		b.txt	cd.txt
5
6
Sheet1

with before and after running macro

 

[buvanamali]

Book1
	A	B	C
1
2
3		a.txt	ab.txt
4		b.txt	cd.txt
5
6
Sheet1

with before and after running macro

View attachment 108896

 

[buvanamali]

I also tested it. From English to English it is quite Ok. Whereas I am trying to change it from English to Tamil Language. the mini sheet is enclosed.
Please help.

 

[Scott Huish]

Sorry that's all I know. Maybe someone else can pick this up.