Σημείωση
Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία Microsoft Jet Expression Service εκτελείται σε κατάσταση λειτουργίας φίλτρου, γεγονός που αποτρέπει την αξιολόγηση ενδεχομένως μη ασφαλών εκφράσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, αναζητήστε τη "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει μια τιμή Long που αντιπροσωπεύει το μέγεθος, σε byte, ενός αρχείου που έχει ανοιχτεί με τη χρήση της πρότασης Open .
Σύνταξη
LOF(αριθμός_αρχείου)
Το απαιτούμενο όρισμα filenumberείναι ένας ακέραιος αριθμός που περιέχει έναν έγκυρο αριθμό αρχείου.
Σημείωση
Χρησιμοποιήστε τη συνάρτηση 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.