I have a vbscript that is used to rename files. What I need to implement into the script is something that deletes the 'new file' if it already exists. For example: I have a batch of files that are named like this 11111111.dddddddd.pdf where the files get renamed to 11111111. Emperor Rise Of The Middle Kingdom Download Demo. pdf. The problem is that when I rename to the 11111111.pdf format I end of with files that are duplicated and then makes the script fail because you obviously cant have 2 files with the same name. I need it to rename the first one but then delete the others that are renamed the same. Here is what I have so far for my IF statement but it doesnt work and I get and error that says 'Type mismatch: 'FileExists'.

I am not sure how to get this part of the code to execute the way I would like. Any help or suggestions would be greatly appreciated. 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, '.'

May 24, 2006 How can I get a script to delete itself?— EA. Tags FileSystemObject running Scripting Guy! Scripting techniques text files VBScript. May 14, 2014 Hi, I am using below VB script to delete files from folder, but it asks me to click OK before deleting each file. Please let me know how to avoid that.

) 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. You're close, you just need to delete the file before trying to over-write it. 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, '.' ) if UBound(parts) = 2 then ' file name like a.c.pdf dim newname: newname = parts(0) & '.'

& parts(2) dim newpath: newpath = fso. Finger Sensing Pad Driver Windows 7 here. BuildPath(OUT_PATH, newname) ' warning: ' if we have source files C: IN_PATH ABC.01.PDF, C: IN_PATH ABC.02.PDF. ' only one of them will be saved as D: OUT_PATH ABC.PDF if fso.FileExists(newpath) then fso.DeleteFile newpath end if file.Move newpath end if next.

FileExists() is a method of FileSystemObject, not a global scope function. You also have an issue with the delete, DeleteFile() is also a method of FileSystemObject. Furthermore, it seems you are moving the file and then attempting to deal with the overwrite issue, which is out of order. First you must detect the name collision, so you can choose the rename the file or delete the collision first. I am assuming for some reason you want to keep deleting the new files until you get to the last one, which seemed implied in your question. So you could use the block: 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 Also be careful that your string comparison with the = sign is case sensitive. Use strCmp with vbText compare option for case insensitive string comparison.