Συνάρτηση CurDir

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

Ορισμένες λειτουργίες αρχείων και καταλόγου ειδικά για το DOS δεν παρέχονται πλέον στο Collabora Office ή η λειτουργία τους είναι μόνο περιορισμένη. Για παράδειγμα, δεν παρέχεται υποστήριξη για τις λειτουργίες ChDir, ChDrive και CurDir. Ορισμένες ιδιότητες του DOS δεν χρησιμοποιούνται πλέον σε συναρτήσεις που αναμένουν ιδιότητες αρχείου ως παραμέτρους (για παράδειγμα, για διαφοροποίηση από κρυφά αρχεία και αρχεία συστήματος). Αυτό εξασφαλίζει το μεγαλύτερο δυνατό επίπεδο ανεξαρτησίας πλατφόρμας για το Collabora Office. Επομένως, αυτή η δυνατότητα υπόκειται σε κατάργηση σε μελλοντική κυκλοφορία.

Η βιβλιοθήκη ScriptForge στο Collabora Office 7.1 εισάγει την υπηρεσία FileSystem με μεθόδους χειρισμού αρχείων και φακέλων σε σενάρια χρήστη.

CurDir [(Text As String)]

Τιμή επιστροφής:

Συμβολοσειρά

Κείμενο: Οποιαδήποτε έκφραση συμβολοσειράς που καθορίζει μια υπάρχουσα μονάδα δίσκου, για παράδειγμα "C" για το πρώτο διαμέρισμα του πρώτου σκληρού δίσκου. Αυτή η παράμετρος χρησιμοποιείται αποκλειστικά στα Windows.

Εάν δεν έχει καθοριστεί μονάδα δίσκου ή εάν η μονάδα είναι μια συμβολοσειρά μηδενικού μήκους (""), το CurDir επιστρέφει τη διαδρομή για την τρέχουσα μονάδα δίσκου. Το Collabora Office Basic αναφέρει ένα σφάλμα εάν η σύνταξη της περιγραφής της μονάδας δίσκου είναι εσφαλμένη ή εάν η μονάδα δεν υπάρχει.

Αυτή η συνάρτηση δεν κάνει διάκριση πεζών-κεφαλαίων.

  Sub ExampleCurDir
      Dim sDir1 As String, sDir2 As String
      sDir1 = "C:\Test"
      sDir2 = "D:\Private"
      ChDir( sDir1 )
      MsgBox CurDir
      ChDir( sDir2 )
      MsgBox CurDir
  End Sub