Sometimes you run into a situtation where you want to delete all the files or a particular type of file (like text files – *.txt) in a folder.Here is a function to do just that:
Private Sub DeleteFilesInFolder(ByVal strFolder As String, OptionalstrFileExt As String =