Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει μια Μεταβλητή (Συμβολοσειρά) που αντιπροσωπεύει την τρέχουσα διαδρομή.
Σύνταξη
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".
