Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει μια τιμή Long που αντιπροσωπεύει το μέγεθος, σε byte, ενός αρχείου που έχει ανοίξει χρησιμοποιώντας την πρόταση Open .
Σύνταξη
LOF( αριθμός_αρχείου )
Ο απαιτούμενος αριθμός αρχείουόρισμα είναι ένας Ακέραιος που περιέχει έγκυρο αριθμός αρχείου.
Σημείωση: Χρησιμοποιήστε τη συνάρτηση FileLen για να λάβετε το μήκος ενός αρχείου που δεν είναι ανοιχτό.
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση LOF για να καθορίσει το μέγεθος ενός ανοιχτού αρχείου. Αυτό το παράδειγμα προϋποθέτει ότι TESTFILE είναι ένα αρχείο κειμένου που περιέχει δείγμα δεδομένων.
Dim FileLength
Open "TESTFILE" For Input As #1 ' Open file.
FileLength = LOF(1) ' Get length of file.
Close #1 ' Close file.
