?
Solved

Looking for a batch file to rename files to remove "Sheet (1) from each filename

Posted on 2010-09-20
3
Medium Priority
?
412 Views
Last Modified: 2012-05-10
When printing from autocad to PDF Creator it will add a suffix to the file name before the extesion to indicate which layout printed.  

Example M01 FLOOR PLAN FIRST FLOOR GRID A SHEET (1).pdf.

I am trying to remove the "SHEET (1)" without having to rename each file manually.

thanks for your help
0
Comment
Question by:808TEC
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 2
3 Comments
 
LVL 3

Expert Comment

by:arweeks
ID: 33722247
Are you happy with vbscript instead of batch?  It's a little neater for something like this.  You need to take the below code, and put it in a text file called rename.vbs.  If you prefer to run from a batch file, create a batch file that has the path to rename.vbs using the syntax
@echo off
cscript "c:\myscripts\rename.vbs"

or something like that.  
Obviously, you will need to edit the two variables below - one for the rootFolder (Where the documents are stored) and the other with the string you want to remove.  I've left this as "SHEET (1)"

Let me know if I can help further.  Also, it's case sensitive, but  that is easily resolved if you want.

option explicit
dim rootfolder, fso, oFol, f, replaceString
' change these two, as you need to

rootFolder = "C:\Users\arweeks\Desktop"
replaceString = 

' ----   no need to change below here unless you have a reason to -----

Set fso = CreateObject("Scripting.FileSystemObject")
Set oFol = fso.GetFolder(rootFolder)

for each f in oFol.files
	if instr(f.name,replaceString) then
		fso.MoveFile rootFolder & "\" & f.name, rootFolder & "\" & replace(f.name,replaceString,"")
	end if
next

Open in new window

0
 
LVL 3

Accepted Solution

by:
arweeks earned 2000 total points
ID: 33722253
oops = line 6 should be

replaceString =  "SHEET (1)"
0
 

Author Closing Comment

by:808TEC
ID: 33728241
Thanks for the help.  Works great and I appreciate since this has just become a urgent need.
0

Featured Post

On Demand Webinar: Networking for the Cloud Era

Did you know SD-WANs can improve network connectivity? Check out this webinar to learn how an SD-WAN simplified, one-click tool can help you migrate and manage data in the cloud.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A short article about problems I had with the new location API and permissions in Marshmallow
Although it can be difficult to imagine, someday your child will have a career of his or her own. He or she will likely start a family, buy a home and start having their own children. So, while being a kid is still extremely important, it’s also …
In this fourth video of the Xpdf series, we discuss and demonstrate the PDFinfo utility, which retrieves the contents of a PDF's Info Dictionary, as well as some other information, including the page count. We show how to isolate the page count in a…
Starting up a Project

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question