Help to rename part of file

Question

Help to rename part of file

dport1968 (TechnicalUser)

(OP)

14 Oct 19 14:53

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 (MIS) · Answer 1 · 2019-10-14 15:49:47

Something like the below:

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"

dport1968 (TechnicalUser) · Answer 2 · 2019-10-14 15:52:25

strongm,

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

David

combo (TechnicalUser) · Answer 3 · 2019-10-15 14:56:10

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

CODE -->

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 (TechnicalUser) · Answer 4 · 2019-10-15 17:41:35

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

combo (TechnicalUser) · Answer 5 · 2019-10-15 20:38:54

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

combo

Come Join Us!

Posting Guidelines

Help to rename part of file