Rename Files
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 |
Rename Files
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 |
All times are GMT +1. The time now is 08:11 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com