小编CLO*_*471的帖子

如果文件存在则删除该文件

我有一个用于重命名文件的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 = …
Run Code Online (Sandbox Code Playgroud)

vbscript filesystemobject

6
推荐指数
1
解决办法
11万
查看次数

标签 统计

filesystemobject ×1

vbscript ×1