Using Macro, how to rename the Filenames in an Folder

**Karthik@1305** · 09-22-2010, 12:44 AM

Hi Excel Team,

I need help from ur End, I need tht How to rename the Filenames in an Folder using macro.. Is it possible, How we can do it..

Example:
In an Folder 200files are there with extenxion .jpg/xls/bmp/txt/doc files, I want to rename tht those files names,

Example1:
Source File: TestImage.jpg
I want rename as
Destination file : image.jpg.

Not only Single file rename..if i wnt to rename Bulk means?...

Is there any coding is there, Can any one share it, its More helpful.........

Waiting For ur rply..

Regards,
Karthick

**pike** · 09-22-2010, 02:17 AM

Hi Karthik@1305,
Welcome to the forum.
A good place to start is with this altered code by Julitta Korol

Please Login or Register  to view this content.

**Karthik@1305** · 09-22-2010, 03:04 AM

Thanks pike, But My Requirement is i want rename to more than 100files, this code is Used for Only Single file renaming, But i Need to rename Morethan 100 files..If possible can u Send Me Coding related to my requirement, Its More Helpful...

Thank you Pike

Regards
Karthick

Originally Posted by pike

Hi Karthik@1305,
Welcome to the forum.
A good place to start is with this altered code by Julitta Korol

Please Login or Register  to view this content.

**pike** · 09-22-2010, 03:17 AM

Hi Karthik@1305
There is no need to quote my posts in yours; it just cluters the threads.
you wont be able to rename then all "image" is is it just the ones named
TestImage?

**daksh1981** · 09-22-2010, 03:28 AM

Hi Pike,

Thanks for sharing the code for renaming files, but for a better understanding Can you tell me the above code will search the folder in which folder as we are not mentioning any folder path here ? In case if we want to search & rename files in a specific folder only , How can we do that ?

Hope I am not asking too much. Actually I am also looking for such possibility.

Regards,
Daksh

**Karthik@1305** · 09-22-2010, 04:14 AM

Hi Pike,

Sorry Pike, Iam new to this Forum, So i don't Know how to rply, thts why i made mistake, sorry don't mind, Can u tell me Solution For my Problem,

How to rename all Image Files at a time.......

Regards
Karthick

**snb** · 09-22-2010, 04:24 AM

Please Login or Register  to view this content.

PS what do 'tht', rply', 'thts', 'u' mean ?
Can you please write in plain English ?

**pike** · 09-22-2010, 04:30 AM

Hi Karthik@1305

I'll like this way..

Please Login or Register  to view this content.

**pike** · 09-22-2010, 04:32 AM

Hi snb,
Have you tested your code?

**snb** · 09-22-2010, 04:34 AM

Yes, that's why I changed it a little bit.

**pike** · 09-22-2010, 04:38 AM

Have you tried testing it and found an error with "rename"?

**snb** · 09-22-2010, 05:00 AM

@Pike,

Thank you...

Please Login or Register  to view this content.

**daksh1981** · 09-22-2010, 05:04 AM

Pike and snb thanks to both of you these codes are really awesome.

**pike** · 09-22-2010, 05:37 AM

this will be better as if the file exist the code wont err

Please Login or Register  to view this content.

**Karthik@1305** · 09-22-2010, 06:36 AM

Thanks you @ Pike and @snb, thanks alot.. now its working fine....... thanks..... keep in touch.. Take care

Regards
Karthick

**snb** · 09-22-2010, 06:36 AM

@Pike
I don't think

Please Login or Register  to view this content.

serves any purpose.

And why 2 tests for checking whether a file exists ?

**Karthik@1305** · 09-22-2010, 06:47 AM

@snb, I need more thing, i want to select source file and Destination File,and then Rename it.. is it Possible...

Actually i tell u My requirement is...

We Extracted Datas(Filenames) from SAP and it downloaded to Excel Sheet, i need to rename tht filesname,,,

Example:

Source Destination(I need to Rename)
TRSTVON.ipg ZJIRJR5400054.jpg

like this iam having 200 files and more files...
i want to rename it.... Is it possible, any code is there to rename.........if possible send me a code........

regards
Karthick

**snb** · 09-22-2010, 07:03 AM

Please Login or Register  to view this content.

**pike** · 09-22-2010, 07:26 AM

Hi snb
I delcare all variables ect and chdir is good housekeeping as it is for default directory but not the default drive

The file check is just in case the file already exist - image #

where i can see a problem with not checking using "replace" is if IF you have files
imagetest and testimage. This will cause error

But the replace code has changed with/as the op request is growing

**Karthik@1305** · 09-22-2010, 07:37 AM

thanku @snb, Sorry to ask again, actually all Datas from SAP Downloaded in to Excel(Sheet1), Using tht Sheet1(Dispalyed all filenames), Now i have to Rename tht file,

Example, In Excel Sheet1,

DMSNO Filename

500000678 TCVXPN91.jpg
500000675 TCVXPN92.jpg
500000677 TCVXPN93.jpg
500000674 TCVXPN94.jpg
500000675 TCVXPN95.jpg

Now i have to rename tht File Name From 'TCVXPN92.jpg' Rename To: 'RJRV500000675.jpg'

After this I have check it in Source Folder, wheather tht name is changed or not.......

Is it Possible, If possible guide me how to do, If possible send me a code........

Regards
Karthick

**snb** · 09-22-2010, 07:44 AM

If you select a directory, using

Please Login or Register  to view this content.

It doesn't matter which directory is the currentdirectory.
If a folder is specified in Dir(..) it acts independent of CurDir.

So in your code :

Please Login or Register  to view this content.

do not contribute to the correct functioning of the macro.
Good housekeeping is fine, preventing a 'messy' house is better.

**pike** · 09-22-2010, 08:02 AM

Hey snb
good habbit when when you have heaps of drives / directory
yes the \ is not needed ..well spotted

Please Login or Register  to view this content.

**snb** · 09-22-2010, 08:13 AM

@Karthick

It seems to me preferable to describe the whole process you are working on.
Now you are asking very partial questions, that can only be answered partially. I wonder whether you are adapting the given code. Based on the given suggestions you should be able to modify the code (even your Excel version has some help-files in the VBEditor).

**Karthik@1305** · 09-22-2010, 08:19 AM

@snb, Thank you..........

Regards
Karthick

**snb** · 09-22-2010, 08:23 AM

@Pike,

You'r missing my point, you macro can be written like:

Please Login or Register  to view this content.

**Karthik@1305** · 09-22-2010, 08:34 AM

@snb, Its not runinng, i didn't get any Output,So can u send me extact code to rectify my problem.......

Regards
Karthick

**pike** · 09-22-2010, 05:41 PM

Hi Karthik@1305,
you will need to expand on what you mean its vague - which code?-
Also if your first question is solved please mark the post solved. If you have additional questions please start a new thread.

Hey snb, yes it can be written that way. I like to get ensure everything is set back to the way it was.

**Karthik@1305** · 09-23-2010, 12:19 AM

SOLVED

Thank you @pike @snb

**pike** · 09-23-2010, 12:25 AM

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

**pike** · 09-23-2010, 12:25 AM

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save

**pike** · 09-23-2010, 12:55 AM

Thanks for taking the time to read and comply with the rule

.

**RED RED** · 03-27-2014, 02:31 PM

In case anybody else is looking for this here is the code (used some code from other forum and adjusted as needed; make sure to have a worksheet with 2 columns - old name and new name i.e. sample1.jpg -- renamedsample1.jpg; save the files to appropriate folder on C drive):

Sub Rename()

Dim strPath As String
Dim strOldName As String
Dim strNewName As String

p = Range("A65000").End(xlUp).row

strPath = "C:\Picture\"

Range("B1").Select

Do Until ActiveCell.row = p

ActiveCell.Offset(1, -1).Select
strOldName = ActiveCell.Value
ActiveCell.Offset(0, 1).Select
strNewName = ActiveCell.Value

Name strPath & strOldName As strPath & strNewName

Loop

p = Range("A65000").End(xlUp).row

End Sub

**johnawale** · 10-15-2014, 04:55 AM

Hi dear,

I have thousands of files in a folder in different formats .jpg,.wav,.mp3,.pdf,.rar,.xlsx,.csv,etc and arranging those files in 100s of folders,creating and renaming them is just taking lot of time . I spend days in it creating folder, renaming and copying those files in their respective folders . Its been 4 days since i've been googling for my solution and i found similar queries in net and i even looked at those solved problem but non of them worked for me, most of them were vba macros. Finally here i am with my problem discussing with you. What i need is a macros that could create the folders i need, rename my files as per excel list and copy those files to folders as per excel list. i have not reported my work in 5 days tomorrow is my final day of reporting and my work is **** and i have nothing.If not possible macro for copying and renaming would also be good enough for me. Hope i get respond of my post ASAP or i'm in trouble. I have attached a sample with this mail plzzzz anyone helpppppppppppp.

Thank You.

**Fotis1991** · 10-15-2014, 04:57 AM

Pls start your own thread as per forum rules.

Using Macro, how to rename the Filenames in an Folder

LinkBack

Thread Tools

Display

Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Re: Using Macro, how to rename the Filenames in an Folder

Thread Information

Users Browsing this Thread

Bookmarks

Bookmarks

Posting Permissions