Public Function DeleteAllFiles(ByVal FolderSpec As String) _
As Boolean
 
 
'EXAMPLE: DeleteAllFiles "C:\Test"
 
Dim oFs As New FileSystemObject
Dim oFolder As Folder
Dim oFile As File
 
 
If oFs.FolderExists(FolderSpec) Then
Set oFolder = oFs.GetFolder(FolderSpec)
On Error Resume Next
For Each oFile In oFolder.Files
oFile.Delete True 'setting force to true
'deletes read-only file
Next
DeleteAllFiles = oFolder.Files.Count = 0
End If
 
End Function