Renaming files using VBS

On a daily basis i receive and send out files. I need to write a script to rename files before i send them out
ex.
800XXXXCAM06%date%.txt --> CAMS01-00-DOE_700099%date%.txt

My task is to replace 800XXXXCAM06 with CAMS01-00-DOE_700099 and leave the date+time

Thank you!
skalenykAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

Bill PrewCommented:
So there will always be 12 characters before the date, that need to be adjusted, and then everything after that stays the same?

This would be very easy in a DOS BAT script, but do you require VBS?

~bp
0
skalenykAuthor Commented:
Yes!
0
skalenykAuthor Commented:
i figured it out!

Thank you for your help.

Set objFso = CreateObject("Scripting.FileSystemObject")
Set Folder = objFSO.GetFolder("J:\Sergiy\Dispatch\")

For Each File In Folder.Files
    sNewFile = File.Name
    sNewFile = Replace(sNewFile,"800XXXXXCAM06","CAMS01-00-DOE_700099")
    if (sNewFile<>File.Name) then 
        File.Move(File.ParentFolder+"\"+sNewFile)
end if
next

Open in new window

0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
Bill PrewCommented:
So the files always start with "800XXXXXCAM06"?  I just assumed that was a template for date that could take on different values...

~bp
0
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
VB Script

From novice to tech pro — start learning today.

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.