我有一个vbscript用于重命名文件。我需要在脚本中实现的功能是,如果“新文件”已经存在,则删除它。
例如:我有一批文件,它们的名称类似于11111111.dddddddd.pdf,其中文件被重命名为11111111.pdf。问题是当我重命名到11111111.pdf格式时,我结束了与相同名称的文件重复,并使脚本失败,因为显然不能有两个同名的文件。我需要重命名第一个文件,然后删除其他重命名为相同名称的文件。
以下是我所拥有的IF语句的部分内容,但它无效并且出现错误,错误消息为“类型不匹配:'FileExists”。我不确定如何让代码的这一部分按照我想要的方式执行。任何帮助或建议将不胜感激。
例如:我有一批文件,它们的名称类似于11111111.dddddddd.pdf,其中文件被重命名为11111111.pdf。问题是当我重命名到11111111.pdf格式时,我结束了与相同名称的文件重复,并使脚本失败,因为显然不能有两个同名的文件。我需要重命名第一个文件,然后删除其他重命名为相同名称的文件。
以下是我所拥有的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