Conditionally delete files by Vba

[hdgfss]

I have to delete this file But there is a condition
Kill "C:\Users\WolfieeeStyle\Desktop\1.xls"
Kill "C:\Users\WolfieeeStyle\Desktop\2.xls"
Kill "C:\Users\WolfieeeStyle\Desktop\3.xls"


If there is kill.xlsb in this path C:\Users\WolfieeeStyle\Desktop then only kill all that files and if it is not present then dont kill it, do nothing

 

[sergioMabres]

Hi h,
I think this could work, in windows for instance

Public Sub del123()
  Dim triger As String
  trigerFile = "C:\Users\WolfieeeStyle\Desktop\kill.xlsb"

  If FileExists(trigerFile) Then
      Shell ("del C:\Users\WolfieeeStyle\Desktop\1.xls")
      Shell ("del C:\Users\WolfieeeStyle\Desktop\2.xls")
      Shell ("del C:\Users\WolfieeeStyle\Desktop\3.xls")
  End If
End Sub

Cheers
Sergio

 

[Peter_SSs]

Cross-posting (posting the same question in more than one forum) is not against our rules, but the method of doing so is covered by #13 of the Forum Rules. Be sure to follow & read the link at the end of the rule too!

Cross posted at: https://www.teachexcel.com/talk/3834/delete-files-by-vba-conditionally

In future please provide links to all cross-posts

 

[Jon Peltier]

Hi h,
I think this could work, in windows for instance

Public Sub del123()
  Dim triger As String
  trigerFile = "C:\Users\WolfieeeStyle\Desktop\kill.xlsb"

  If FileExists(trigerFile) Then
      Shell ("del C:\Users\WolfieeeStyle\Desktop\1.xls")
      Shell ("del C:\Users\WolfieeeStyle\Desktop\2.xls")
      Shell ("del C:\Users\WolfieeeStyle\Desktop\3.xls")
  End If
End Sub

Cheers
Sergio

Three errors:

Declared triger but one line later used trigerFile
FileExists: Compile Error, Sub or Function not defined
Shell: Run-time error 53, File not found

 

[Jon Peltier]

If Dir("C:\Users\WolfieeeStyle\Desktop\kill.xlsb") = "kill.xlsb" Then
  Kill "C:\Users\WolfieeeStyle\Desktop\1.xls"
  Kill "C:\Users\WolfieeeStyle\Desktop\2.xls"
  Kill "C:\Users\WolfieeeStyle\Desktop\3.xls"
End If