shorten and rename file names?

dkim18
dkim18 used Ask the Experts™
on
Hi
File names are longer than 110 characters and my cd burner will write to cd.
I want to use firt 30 characters + extension and rename it.
Can you help?
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
name oldfilename as Left(oldfilename,30) & right(oldfilename,4)
or
Dim MyExt as Integer
Dim strExt as string
MyExt = instr(oldfilename,".")
strExt = right(oldfilename,(Len(oldfilename)-MyExt))
name oldfilename as Left(oldfilename,30) & strExt
Commented:
Here is a software application that can accomplish this:
http://www.downloadatoz.com/dvd-video_directory/long-filename-finder/

Author

Commented:
Thanks. I figure it out.

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial