Sub DeleteFiles()
'macro to delete all files in a folder
Dim FileSys As FileSystemObject
Dim objFile As File
Dim myFolder
Dim strFilename As String
Dim dteFile As Date
'set path for files - change for your folder
Const myDir As String = "C:\"
'set up filesys objects
Set FileSys = New FileSystemObject
Set myFolder = FileSys.GetFolder(myDir)
'loop through each file and check for name match
For Each objFile In myFolder.Files
If objFile.Name <> ThisWorkbook.Name Then
objFile.Delete
End If
Next objFile
Set FileSys = Nothing
Set myFolder = Nothing
End Sub
Sub DeleteFiles()
'macro to delete all files in a folder
Dim FileSys As FileSystemObject
Dim objFile As File
Dim myFolder
Dim strFilename As String
Dim dteFile As Date
'set path for files - change for your folder
Const myDir As String = "C:\"
'set up filesys objects
Set FileSys = New FileSystemObject
Set myFolder = FileSys.GetFolder(myDir)
'loop through each file and check for name match on *test*
For Each objFile In myFolder.Files
If (InStr(1, UCase(objFile.Name), "TEST")) > 0 And objFile.Name <> ThisWorkbook.Name Then
objFile.Delete
End If
Next objFile
Set FileSys = Nothing
Set myFolder = Nothing
End Sub