Η συνάρτηση CurDir

Σημείωση:  Θέλουμε να σας παρέχουμε το πιο πρόσφατο περιεχόμενο βοήθειας στη γλώσσα σας όσο πιο σύντομα γίνεται. Αυτή η σελίδα έχω μεταφραστεί μέσω αυτοματοποιημένης διαδικασίας και ενδεχομένως να περιέχει γραμματικά λάθη και ανακρίβειες. Ο σκοπός μας είναι αυτό το περιεχόμενο να σας φανεί χρήσιμο. Μπορείτε να μας ενημερώσετε στο κάτω μέρος αυτής της σελίδας εάν οι πληροφορίες σάς φάνηκαν χρήσιμες; Εδώ θα βρείτε το άρθρο στα Αγγλικά , για να το συμβουλεύεστε εύκολα.

Σημείωση: Η συνάρτηση, τη μέθοδο, αντικείμενο ή ιδιότητα που περιγράφονται σε αυτό το θέμα είναι απενεργοποιημένη, εάν η Microsoft Jet Expression Service εκτελείται σε λειτουργία φίλτρου, η οποία δεν επιτρέπει την αξιολόγηση της ενδεχομένως μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία sandbox, κάντε αναζήτηση για "η λειτουργία φίλτρου" στη Βοήθεια.

Επιστρέφει μια μεταβλητή (συμβολοσειρά) που αντιπροσωπεύει την τρέχουσα διαδρομή.

Σύνταξη

Συνάρτηση CurDir [(μονάδα δίσκου)]

Την προαιρετική μονάδα δίσκουόρισμα είναι παράσταση συμβολοσειράς που καθορίζει μια υπάρχουσα μονάδα δίσκου. Εάν έχει καθοριστεί χωρίς μονάδα δίσκου ή μονάδα δίσκου είναι μια συμβολοσειρά μηδενικού μήκους (""), CurDir επιστρέφει τη διαδρομή για την τρέχουσα μονάδα δίσκου. Στον Macintosh, CurDir παραβλέπει το όρισμα οποιαδήποτε μονάδα δίσκου που καθορίζεται και απλά επιστρέφει τη διαδρομή για την τρέχουσα μονάδα δίσκου.

Παράδειγμα

Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε ένα έργο Visual Basic για τη λειτουργική μονάδα 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".
Αναπτύξτε τις δεξιότητές σας στο Office
Εξερευνήστε το περιεχόμενο της εκπαίδευσης
Αποκτήστε πρώτοι τις νέες δυνατότητες
Γίνετε μέλος του Office Insider

Σας βοήθησαν αυτές οι πληροφορίες;

Σας ευχαριστούμε για τα σχόλιά σας!

Σας ευχαριστούμε για τα σχόλιά σας! Φαίνεται ότι μπορεί να είναι χρήσιμο να συνδεθείτε με έναν από τους συνεργάτες υποστήριξης του Office.

×