Delete file, based on cell name

[tm0206]

Hi,
I am looking for a VBA to delete a files, with the name of the file coming from a cell value.

Cell A1 = names
I would like to delete the file "names" from c:\inventory\data

I am think of using, but not sure how to include the cell into the statement?
kill c:\inventory\data\"A1".xls

 

[Rick Rothstein]

Sorry, I forgot to put a backslash after the word data

I modified the code to have a specified path in case you will need to apply this code to a different path for some reason in the future...

[table="width: 500"]
[tr]
	[td]Sub DeleteMultipleFiles()
  Dim Path As String
  Path = "c:\inventory\data\"
  Shell Environ("comspec") & " /c DEL /Q " & """" & Join(Application.Transpose(Range("A2", Cells(Rows.Count, "A").End(xlUp))), """ " & Path & "") & """", vbHide
End Sub[/td]
[/tr]
[/table]

 

[scubadunc]

I modified the code to have a specified path in case you will need to apply this code to a different path for some reason in the future...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Sub DeleteMultipleFiles()
  Dim Path As String
  Path = "c:\inventory\data\"
  Shell Environ("comspec") & " /c DEL /Q " & """" & Join(Application.Transpose(Range("A2", Cells(Rows.Count, "A").End(xlUp))), """ " & Path & "") & """", vbHide
End Sub[/TD]
[/TR]
</tbody>[/TABLE]

Thanks for the updated code, however it doesn't seem to be working. No files are being deleted?

 

[Rick Rothstein]

Thanks for the updated code, however it doesn't seem to be working. No files are being deleted?

Are you using a PC or a Mac ?

 

[scubadunc]

PC

An example of the cell contents is "W_22233334.pdf"

 

[Rick Rothstein]

PC

An example of the cell contents is "W_22233334.pdf"

With the quote marks?

 

[scubadunc]

Without the quote marks

 

[Rick Rothstein]

Without the quote marks

Sorry, I just rechecked my code and found some misplaced quotemarks/spaces. Give this (tested) version a try...

[table="width: 500"]
[tr]
	[td]Sub DeleteMultipleFiles()
  Dim Path As String
  Path = "c:\inventory\data\"
  Shell Environ("comspec") & " /c DEL /Q " & """" & Path & Join(Application.Transpose(Range("A2", Cells(Rows.Count, "A").End(xlUp))), """ """ & Path & "") & """", vbHide
End Sub[/td]
[/tr]
[/table]

 

[scubadunc]

Sorry, I just rechecked my code and found some misplaced quotemarks/spaces. Give this (tested) version a try...

[TABLE="width: 500"]
<tbody>[TR]
[TD]Sub DeleteMultipleFiles()
  Dim Path As String
  Path = "c:\inventory\data\"
  Shell Environ("comspec") & " /c DEL /Q " & """" & Path & Join(Application.Transpose(Range("A2", Cells(Rows.Count, "A").End(xlUp))), """ """ & Path & "") & """", vbHide
End Sub[/TD]
[/TR]
</tbody>[/TABLE]

Great, this works perfectly for local files. Any idea why it wouldn't work for a network path?

 

[Rick Rothstein]

Great, this works perfectly for local files. Any idea why it wouldn't work for a network path?

Sorry, no... I have been retired and, hence, not had access to a network system, for some 16 years now. I would think if the path is set up correctly, it should work, but I have no way to test that. Does it maybe work if you map your network drive to a local hard disk letter and then use it for the path?

 

[scubadunc]

Sorry, no... I have been retired and, hence, not had access to a network system, for some 16 years now. I would think if the path is set up correctly, it should work, but I have no way to test that. Does it maybe work if you map your network drive to a local hard disk letter and then use it for the path?

I appreciate your help. I'll give the mapped drive option a go, but at least it is working locally. Thanks again