Help to rename part of file
Help to rename part of file
(OP)
Good morning all,
I have hundreds of pdf files like V-45X-0892-0.pdf, V-45X-0893-0.pdf, etc...
I would like to strip the -0 on end of every filename to look like V-45X-0892.pdf, V-45X-0893.pdf, etc..
Any help would be greatly appreciated.
Below is what I have but not working:
folderspec = "C:\Dave\"
strRename = ""
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.GetFolder(folderspec)
for each f1 in f.files
Filename = folderspec & f1.name
NewFilename = replace(Filename, "*-0.pdf" "*.pdf", strRename)
fs.MoveFile Filename, NewFilename
next
msgbox "All Done"
Thank you in advance,
David
I have hundreds of pdf files like V-45X-0892-0.pdf, V-45X-0893-0.pdf, etc...
I would like to strip the -0 on end of every filename to look like V-45X-0892.pdf, V-45X-0893.pdf, etc..
Any help would be greatly appreciated.
Below is what I have but not working:
folderspec = "C:\Dave\"
strRename = ""
set fs = CreateObject("Scripting.FileSystemObject")
set f = fs.GetFolder(folderspec)
for each f1 in f.files
Filename = folderspec & f1.name
NewFilename = replace(Filename, "*-0.pdf" "*.pdf", strRename)
fs.MoveFile Filename, NewFilename
next
msgbox "All Done"
Thank you in advance,
David
RE: Help to rename part of file
CODE
folderspec = "C:\Dave\" strRename = "" Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(folderspec) For Each f1 In f.Files f1.Move fs.BuildPath(f1.ParentFolder, Replace(f1.Name, "-0.", ".")) Next MsgBox "All Done"
RE: Help to rename part of file
That did the trick! Thank you so much! I really appreciate it.
David
RE: Help to rename part of file
CODE -->
combo
RE: Help to rename part of file
Char:6
RE: Help to rename part of file
combo