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

Σε αναζήτηση στο 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 “Περιμένετε παρακαλώ” όσο γίνεται η αναζήτηση και διαγραφή.

Καλησπέρα!

Γιώργο έχω ανεβάσει στα παραδείγματα της Excel σχετικό παράδειγμα αναζήτησης και εκτέλεσης/διαγραφής των αρχείων που επιστρέφει η αναζήτηση κατ' επιλογή.

Μπορείς να το βρεις εδώ: http://www.ms-office.gr/forum/excel-...html#post12631

Φιλικά

Τάσος

Καλησπέρα σε όλους
Τάσο όπως πάντα αχτύπητος ………..!
Όσο αφορά το msgbox οι οδηγίες σου λεπτομερέστατες και σαφής.
Μαθαίνω πολλά και αυτό με ευχάριστη.
Όσο για την αναζήτηση εεεεε… σουπερ ντουπερ ουαου δεν θα μπορούσα να έχω κάτι άλλο.