Untitled

If file exists then delete the file
dim infolder: set infolder = fso.GetFolder(IN_PATH)
dim file
for each file in infolder.files

dim name: name = file.name
dim parts: parts = split(name, ".")
dim acct_, date_
acct_ = parts(0)
date_ = parts(1)


' file format of a.c.pdf
if UBound(parts) = 2 then
    ' rebuild the name with the 0th and 2nd elements
    dim newname: newname = acct_ & "." & parts(2)
    ' use the move() method to effect the rename
    file.move fso.buildpath(OUT_PATH, newname)

    if  newname = FileExists(file.name) Then
    newname.DeleteFile()
    end if
end if

next 'file

if NOT fso.FileExists(newname) Then

    file.move fso.buildpath(OUT_PATH, newname)

else

    fso.DeleteFile newname
    file.move fso.buildpath(OUT_PATH, newname)

end if