If file exists then delete the file

Question

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 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       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   amp       amp  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

User · Answer

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

User · Answer

IF both POS History bim data   zip and POS History bim data   zip trg exists in  Y  ExternalData RSIDest  Folder then Delete File Y  ExternalData RSIDest Target slpos unzip done dat

User · Answer

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   amp       amp  parts 2          dim newpath  newpath   fso 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

[vbscript] If file exists then delete the file

Examples related to vbscript

Examples related to filesystemobject