Καλησπέρα σε όλους
Νίκο σ`ευχαριστώ για την απάντησή σου. Όμως,το παράδειγμα που ανέβασες δε λειτουργεί.
Απλώς με το πάτημα του κουμπιού βγάζει το ίδιο μήνυμα είτε έχω συνδεδεμένη
εξωτερική μονάδα αποθήκευσης είτε όχι.
Ωστόσο, για να γίνω πιο σαφής θα σας περιγράψω ακολούθως ποιος είναι ο τελικός σκοπός μου:
α) Όταν ο χρήστης ανοίξει το παράθυρο διαλόγου για αναζήτηση φακέλου και επιλέξει
να αποθηκεύσει αντίγραφο ασφαλείας σε οποιονδήποτε φάκελο του
"C:\" τότε
να ενημερώνεται με μήνυμα:
MsgBox "Δεν μπορείτε να αποθηκεύσετε αντίγραφο ασφαλείας στο φάκελο
"C:\" όπου βρίσκεται η εφαρμογή! β) Όταν ο χρήστης ανοίξει το παράθυρο διαλόγου γιά αναζήτηση φακέλου και επιλέξει να αποθηκεύσει
το αντίγραφο ασφαλείας σε
ήδη συνδεδεμένη εξωτερική μονάδα αποθήκευσης (εξωτερικό σκληρό δίσκο, φλασάκι κλπ)
να προχωρά η κανονικά διαδικασία αποθήκευσης (όπως αυτή έχει οριστεί με άλλον κώδικα)
γ) Τέλος, όταν ο χρήστης ανοίξει το παράθυρο διαλόγου γιά αναζήτηση φακέλου και
δεν υπάρχει
συνδεδεμένη εξωτερική μονάδα αποθήκευσης (εξωτερικός σκληρός δίσκος, φλασάκι usb κλπ) τότε
να ενημερώνεται με μήνυμα:
MsgBox "Δε βρέθηκε συνδεδεμένη εξωτερική μονάδα αποθήκευσης".
Δηλαδή, με άλλα λόγια,
δε θέλουμε σε καμιά περίπτωση ο χρήστης να αποθηκεύει το αντίγραφο ασφαλείας στο φάκελο "C:\",
αλλά σε εξωτερικό σκληρό δίσκο, φλασάκι κλπ.
Ερευνώντας το Forum βρήκα μια ανάρτηση του
Τάσου Φιλοξενίδη "http://www.ms-office.gr/forum/access...ss-backup.html"
Βάσει αυτής, τροποποίησα την αρχική βάση* που ανέβασα. Όμως, ισχύει μόνον όταν η βάση βρίσκεται
στον ίδιο φάκελο του "C:\".
Για παράδειγμα, ας υποθέσουμε ότι έχουμε τη βάση μας στην επιφάνεια εργασίας.
Τώρα, αν στο παράθυρο διαλόγου επιλέξουμε το φάκελο "Επιφάνεια εργασίας" έχουμε το μήνυμα
MsgBox "Δεν μπορείτε να αποθηκεύσετε αντίγραφο ασφαλείας στον φάκελο που βρίσκεται η εφαρμογή!" & vbLf & _
"Επιλέξτε άλλη διαδρομή ή δημιουργήστε νέο φάκελο."
Αν, αντίστοιχα, επιλέξουμε το φάκελο "Έγγραφα" ή οποιονδήποτε άλλο φάκελο του "C:\", μάς επιτρέπει κανονικά
την αποθήκευση, πράγμα που δεν είναι επιθυμητό!
Με αυτά τα δεδομένα ευελπιστώ στην πολύτιμη βοήθειά σας.
*Παρακάτω η νέα τροποποιημένη βάση όπως περιγράφηκε παραπάνω...