Excel - Ερωτήσεις / Απαντήσεις Ότι έχει σχέση με συναρτήσεις, μορφοποίηση, εκτυπώσεις γραφήματα κτλ. |
| Εργαλεία Θεμάτων | Τρόποι εμφάνισης |
#1
| ||||
| ||||
Αναζήτηση και διαγραφή
Σε αναζήτηση στο 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 “Περιμένετε παρακαλώ” όσο γίνεται η αναζήτηση και διαγραφή. |
#2
| ||||
| ||||
Καλησπέρα! Γιώργο έχω ανεβάσει στα παραδείγματα της Excel σχετικό παράδειγμα αναζήτησης και εκτέλεσης/διαγραφής των αρχείων που επιστρέφει η αναζήτηση κατ' επιλογή. Μπορείς να το βρεις εδώ: http://www.ms-office.gr/forum/excel-...html#post12631 Φιλικά Τάσος
__________________ Ms-Office Development Team Ανάπτυξη επαγγελματικών εφαρμογών |
#3
| ||||
| ||||
Καλησπέρα σε όλους Τάσο όπως πάντα αχτύπητος ………..! Όσο αφορά το msgbox οι οδηγίες σου λεπτομερέστατες και σαφής. Μαθαίνω πολλά και αυτό με ευχάριστη. Όσο για την αναζήτηση εεεεε… σουπερ ντουπερ ουαου δεν θα μπορούσα να έχω κάτι άλλο. |
« Προηγούμενο Θέμα
|
Επόμενο Θέμα »
| |
Παρόμοια Θέματα | ||||
Θέμα | Δημιουργός | Forum | Απαντήσεις | Τελευταίο Μήνυμα |
Διαγραφή δεδομένων | anestaki | Access - Ερωτήσεις / Απαντήσεις | 0 | 28-12-15 20:43 |
Διαγραφή αρχείου exe | anestaki | Access - Ερωτήσεις / Απαντήσεις | 0 | 02-12-15 20:05 |
[VBA] Διαγραφή δεδομένων | gfevran | Excel - Ερωτήσεις / Απαντήσεις | 10 | 10-05-14 20:06 |
[VBA] Αναζήτηση - Εκτέλεση - Διαγραφή αρχείων στην Excel | Tasos | Excel samples - Χρήσιμα αρχεία & παραδείγματα | 0 | 25-10-12 16:10 |
[VBA] διαγραφή δεδομένων | misirlis | Excel - Ερωτήσεις / Απαντήσεις | 7 | 28-11-10 20:52 |
Η ώρα είναι 08:35.