[VBA] Αναζήτηση και διαγραφή

[anestaki]

Σε αναζήτηση στο Forum βρήκα αυτόν τον κώδικα:
Sub DeleteHiddenFile()
Dim strFilePath$, fso
strFilePath = "C:\test.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
With fso
If .FileExists(strFilePath) Then
If .GetFile(strFilePath).Attributes And vbHidden Then
On Error Resume Next
.DeleteFile strFilePath
If Err <> 0 Then
MsgBox Err & vbLf & Err.Description
Else
MsgBox "Το αρχείο διαγράφηκε....", vbInformation
End If
Else
'MsgBox "Το αρχείο βρέθηκε αλλά δεν είναι κρυφό....", vbInformation
End If
Else
MsgBox "Δεν βρίσκω το αρχείο....", vbExclamation
End If
Set fso = Nothing
End With
End Sub

Και θα ήθελα να γίνετε αναζήτηση σε όλους τους φάκελου του υπολογιστή και να εμφάνιση μόνο ένα msgbox “Περιμένετε παρακαλώ” όσο γίνεται η αναζήτηση και διαγραφή.