I have a bunch of files that I get scanned and returned to me with generic
names. I need these files renamed according to the name of the client in
each file. What I do is go through each file, before they get scanned, and
type out the name of each client from each file. I also get a list (in text
form) of each scanned file inserted into the excel sheet for parity.

Is there a macro that will search for the scanned file in the appropriate
folder according to the list in excel and rename it to client name that I
want to change it to?

I know this is long winded but what i'm looking for a way to rename a ton of
files as easy and as quickly as possible.

Any help would be appreciated.

Niq

Hi Niq,

Does something like this get you started?

Sub D()
Dim sName As String
Dim Arr As Variant
Dim sNewName As String

ChDir "c:\temp"

sName = Dir("c:\temp\*.txt")
Do While Len(sName) 0
Arr = Split(sName, ".")
If UBound(Arr) = 1 Then
sNewName = Arr(0) & "XXX.txt"
' Change this obviously!
On Error GoTo NameAlreadyExists
Name sName As sNewName
On Error GoTo 0
End If
RestartPoint:
sName = Dir()
Loop
Exit Sub

NameAlreadyExists:
MsgBox "Cannot rename '" & sName & "' as '" & sNewName & "' already
exists"
Resume RestartPoint
End Sub

Obviously change the filter on the initial Dir call and the renaming rules!

HTH

Peter Beach

"Dominique Feteau" wrote in message
...
I have a bunch of files that I get scanned and returned to me with generic
names. I need these files renamed according to the name of the client in
each file. What I do is go through each file, before they get scanned,
and
type out the name of each client from each file. I also get a list (in
text
form) of each scanned file inserted into the excel sheet for parity.

Is there a macro that will search for the scanned file in the appropriate
folder according to the list in excel and rename it to client name that I
want to change it to?

I know this is long winded but what i'm looking for a way to rename a ton
of
files as easy and as quickly as possible.

Any help would be appreciated.

Niq