Macro to Delete or Rename .csv File

JohnDrew · Jul 6th 2018

I have a EXIF program which downloads all the information related to pictures. When I run the EXIF program it creates a .csv file and I copy and paste to Worksheet. The next time I run the program, it stops and says I have to remove the .csv file before it can continue. I need to delete all.csv files or rename the one so it can continue. A Excel AddIn to Delete a file located on the Ribbon would easily work also.

**Kenneth Hobson** · Jul 6th 2018

Change to suit:

Code

Sub Test()
  Dim csv As String, csv2 As String
  csv = "c:\excel\csv\1.csv"
  csv2 = "c:\excel\csv\2.csv"
  On Error Resume Next
  Kill csv
  'Name csv As csv2
End Sub

JohnDrew · Jul 6th 2018

It does not like the Kill Statement

Sub KILL()
KILL "C:\*.csv"
End Sub
Wrong number of arguments or Invalid Property Assignment

**Kenneth Hobson** · Jul 6th 2018

Code

Shell "cmd /c del c:\*.csv", vbHide

JohnDrew · Jul 6th 2018

It runs but does not delete the file

Sub KILLS()
Shell "cmd /c del c:\*.csv", vbHide
End Sub

**Kenneth Hobson** · Jul 6th 2018

Works fine for me.

Even though I am the admin, I still can't put files into the root folder c:\.

Maybe you did something prior to that locked a csv file? When shelling to an external program like EXIF, it is best to use ShellExecute() rather than Shell() to allow time for the execution to finish.

e.g.
http://www.cpearson.com/Excel/ShellAndWait.aspx
or
http://www.mvps.org/access/api/api0018.htm

JohnDrew · Jul 7th 2018

When I ran the EXIF file it generated the Image number and Date Taken. Then it created a .csv file. I copied the data to my spreadsheet but never closed the .csv file. It gave me no errors, therefore I thought it was an error in my VBA.
Wrote a Macro to Delete before running the download. Thanks Ken for your usual support.

Macro to Delete or Rename .csv File

Participate now!

Share