Если файл существует, удалите его.

У меня есть vbscript, который используется для переименования файлов. Что мне нужно реализовать в сценарии, так это то, что удаляет «новый файл», если он уже существует.

Например: у меня есть пакет файлов с таким названием 11111111.dddddddd.pdf, где файлы переименовываются в 11111111.pdf. Проблема в том, что когда я переименовываю в формат 11111111.pdf, я заканчиваю дублированными файлами, а затем приводит к сбою сценария, потому что у вас, очевидно, не может быть 2 файлов с одинаковыми именами. Мне нужно переименовать первый, но затем удалить другие, которые переименованы так же.

Вот что у меня есть для моего оператора IF, но он не работает, и я получаю сообщение об ошибке «Несоответствие типов: 'FileExists». Я не уверен, как заставить эту часть кода выполняться так, как мне хотелось бы. Любая помощь или предложения будут приняты с благодарностью.

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