LinkBack URL
About LinkBacks
Sub snb() For Each fl In CreateObject("scripting.filesystemobject").getfolder("H:\SAFETY\FORMS\ 300 & 300A\2011").Files fl.Name = Replace(fl.Name, "_2010", "_2011") Next End Sub
Sub snb() For Each fl In CreateObject("scripting.filesystemobject").getfolder("H:\SAFETY\FORMS\ 300 & 300A\2011").Files fl.Name = Replace(fl.Name, "_2010", "_2011") Next End Sub
snb: Thanks for your help. This worked on the first four files and the last one, and then I got an error message: "Run-time error '58': File already exists. When I click on debug it highlights: fl.Name = Replace(fl.Name, "_2010", "_2011"). Is there something I need to correct? JPDutch
There are currently 1 users browsing this thread. (0 members and 1 guests)
Posting Permissions
Register To Reply
Bookmarks