Σημείωση
Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία Microsoft Jet Expression Service εκτελείται σε κατάσταση λειτουργίας φίλτρου, γεγονός που αποτρέπει την αξιολόγηση ενδεχομένως μη ασφαλών εκφράσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, αναζητήστε τη "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει μια Μεταβλητή (συμβολοσειρά) που αναπαριστά την τρέχουσα διαδρομή.
Σύνταξη
CurDir[(μονάδα δίσκου)]
Το όρισμα προαιρετική μονάδα δίσκουείναι μια παράσταση συμβολοσειράς που καθορίζει μια υπάρχουσα μονάδα δίσκου. Εάν δεν έχει καθοριστεί μονάδα δίσκου ή εάν η μονάδα δίσκου είναι συμβολοσειρά μηδενικού μήκους (""), η CurDir επιστρέφει τη διαδρομή για την τρέχουσα μονάδα δίσκου. Στο Macintosh, το CurDir αγνοεί οποιαδήποτε καθορισμένη μονάδα δίσκου και απλώς επιστρέφει τη διαδρομή για την τρέχουσα μονάδα δίσκου.
Παράδειγμα
Σημείωση
Τα παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε " Αναφορά προγραμματιστών " στην αναπτυσσόμενη λίστα δίπλα στην επιλογή "Αναζήτηση " και εισαγάγετε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση CurDir για να επιστρέψει την τρέχουσα διαδρομή. Στο Macintosh, οι προδιαγραφές της μονάδας δίσκου που δίνονται στο CurDir παραβλέπονται. Το προεπιλεγμένο όνομα της μονάδας δίσκου είναι "HD" και τα τμήματα του ονόματος διαδρομής διαχωρίζονται με άνω και κάτω τελείες αντί για ανάστροφες καθέτους. Παρομοίως, θα καθορίζονταν τους φακέλους Macintosh αντί για τον φάκελο \Windows.
' Assume current path on C drive is "C:\WINDOWS\SYSTEM" (on Microsoft Windows).
' Assume current path on D drive is "D:\EXCEL".
' Assume C is the current drive.
Dim MyPath
MyPath = CurDir ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("C") ' Returns "C:\WINDOWS\SYSTEM".
MyPath = CurDir("D") ' Returns "D:\EXCEL".