Help to rename part of file

[dport1968]

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

 

[strongm]

Something like the below:

[blue]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"[/blue]

 

[dport1968]

strongm,

That did the trick! Thank you so much! I really appreciate it.

David

 

[combo]

Maybe this is faster, processing names and renaming only those files that have to be renamed:

For Each f1 In f.Files
    Filename = f1.Name
    If InStr(Filename, "-0.pdf") > 0 Then f1.Name = Replace(Filename, "-0.pdf", ".pdf")
Next f1

combo

 

[dport1968]

combo, thank you for your input but it's not working. "Expected end of statement" error. Line:4
Char:6

 

[combo]

Seems that VBscript does not accept counter after Next, so try single [tt]Next[/tt] in last line.

combo