How to do a find replace on file names within a directory with a script.

I have a an excel sheet that will have first/last name and an account number.

I have a directory of files that are named via acct number, I would like to script a way to rename all those account numbers to first/last name.  For example find replace "account number" with the name listed by the account number.

Does anybody know of a good way to do that, or have a working script
Preston55Asked:
Who is Participating?
 
McOzConnect With a Mentor Commented:
Here is a very simple code which should do what you need:
Sub renameFiles()
    myPath = "C:\New Folder\" 'the path to your directory (remember backslash at end)
    i = 2 'start on second row, assuming you have headers
    On Error Resume Next 'if a matching file is not found in the directory, skip it
    Do Until Cells(i, 1).Value = "" 'loop down the excel sheet until the first empty cell
        oldName = myPath & Cells(i, 1).Value & ".xlsx" 
        Name oldName As myPath & Cells(i, 2).Value & Cells(i, 3).Value & ".xlsx"
        i = i + 1
    Loop
End Sub

Open in new window


It works with a sheet such as the one attached. Book2.xlsx
0
 
DrDamnitConnect With a Mentor Commented:
Fart.

Find And Replace Text.

http://sourceforge.net/projects/fart-it/files/

You can do a find and replace on file names, their contents, type, etc...

Easily run from a batch file, or from a single command line.
0
 
Preston55Author Commented:
side question on that, some of the files have extended names for example

john smith is account number 34576,

so he may have two files which would be 34576_abcdef.tif and 34576_mnop.tif

With using those scripts can it preserver the _abcdef, yet change the 34576 to John Smith

Hope that makes sense, Thanks Again.

0
Improved Protection from Phishing Attacks

WatchGuard DNSWatch reduces malware infections by detecting and blocking malicious DNS requests, improving your ability to protect employees from phishing attacks. Learn more about our newest service included in Total Security Suite today!

 
McOzCommented:
OK, if that is the case you will need to use this code:
Sub renameFiles()
    myPath = "C:\New Folder\" 'the path to your directory (remember backslash at end)
    i = 2 'start on second row, assuming you have headers
    Do Until Cells(i, 1).Value = "" 'loop down the excel sheet until the first empty cell
        strFile = Dir(myPath & Cells(i, 1).Value & "*.xls*", vbNormal)
        Do While strFile <> ""
            Name strFile As Replace(strFile, Cells(i, 1).Value, Cells(i, 2).Value & Cells(i, 3).Value)
            strFile = Dir
        Loop
        i = i + 1
    Loop
End Sub

Open in new window


This will replace the account number in any filename that begins with the account number.

Cheers
0
 
wls3Commented:
Is this Excel--as in .xls/.xslx--or .csv?  Also, do you have a preference on which scripting language?  I see you put several.

Also, as someone who has a predilection for using Excel to manipulate stuff in a pinch, I am wondering why not try this low-rent solution: assuming your have columns A (first name), B (last name) and C (account number), why not use something this is in column D:

="ren C:\your\folder\path\"&C1&".ext C:\your\folder\path\"&A1&B1&".ext"

Open in new window


The output would be:

A: Will
B: Steele
C: 12345
D: ren C:\your\folder\path\12345.ext C:\your\folder\path\WillSteele.ext

Drag this down to your last row and then copy/paste Column D values into a .bat file.  Double-click the .bat file and renaming is complete.  I would also STRONGLY recommend testing and backing up your directory before running this.
0
 
wls3Commented:
Sorry, posted too soon.  The command in traditional cmd shell would be:
="ren C:\your\folder\path\"&C1&".ext "&A1&B1&".ext"

Open in new window

Do not use the full path to prefix the second file name.
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.