Button in Form to Delete all .jpg from a folder

[The Boondock Saint]

Is there a way you can have a button in a form set to delete files from a
folder on the computer..

Such as all the .jpg files in a certain folder on the local computer?

Any help would be awesome...

 

[Guest]

Here's a very simple function that will do what you asked. Note, this will
delete all jpg's in the folder you specify. Try this:

Function fDeleteFiles()

Dim strfile As String
Dim strPath As String

strPath = "YOUR FILE PATH HERE"

ChDir strPath
strfile = Dir("*.jpg")

Do While Len(strfile) > 0
'delete the file
Kill strPath & "/" & strfile
strfile = Dir
Loop

End Function

 

[SusanV]

Sure, use kill. For example this would delete all jpg files in C:\Temp:
Kill "C:\Temp\*.jpg"

 

[The Boondock Saint]

Ive found a way of doing it using a .bat file ... thank goodness for Dos

but still interested in if there is a better way