Σημείωση: Η συνάρτηση, η μέθοδος, το αντικείμενο ή η ιδιότητα που περιγράφεται σε αυτό το θέμα είναι απενεργοποιημένη εάν η υπηρεσία παραστάσεων Microsoft Jet εκτελείται σε κατάσταση λειτουργίας φίλτρου, κάτι που αποτρέπει τον υπολογισμό πιθανώς μη ασφαλών παραστάσεων. Για περισσότερες πληροφορίες σχετικά με τη λειτουργία φίλτρου, κάντε αναζήτηση για "λειτουργία φίλτρου" στη Βοήθεια.
Επιστρέφει έναν Ακέραιο που αντιπροσωπεύει την επόμενη αριθμός αρχείου που είναι διαθέσιμος για χρήση από την πρόταση Open .
Σύνταξη
FreeFile[(αριθμός_περιοχής)]
Το προαιρετικό όρισμα αριθμός περιοχής είναι μια Μεταβλητή που καθορίζει την περιοχή από την οποία θα επιστραφεί ο επόμενος δωρεάν αριθμός αρχείου. Καθορίστε ένα 0 (προεπιλογή) για να επιστραφεί ένας αριθμός αρχείου στην περιοχή από 1 έως 255. Καθορίστε έναν αριθμό 1 για να λάβετε έναν αριθμό αρχείου στην περιοχή 256 – 511.
Παρατηρήσεις
Χρησιμοποιήστε το FreeFile για να δώσετε έναν αριθμό αρχείου που δεν χρησιμοποιείται ήδη.
Παράδειγμα
Σημείωση: Παραδείγματα που ακολουθούν δείχνουν τη χρήση αυτής της συνάρτησης σε μια λειτουργική μονάδα Visual Basic for Applications (VBA). Για περισσότερες πληροφορίες σχετικά με την εργασία με τη VBA, επιλέξτε Αναφορά προγραμματιστών στην αναπτυσσόμενη λίστα δίπλα στην Αναζήτηση και πληκτρολογήστε έναν ή περισσότερους όρους στο πλαίσιο αναζήτησης.
Αυτό το παράδειγμα χρησιμοποιεί τη συνάρτηση FreeFile για να επιστρέψει τον επόμενο διαθέσιμο αριθμό αρχείου. Πέντε αρχεία ανοίγουν για έξοδο εντός του βρόχου και ορισμένα δείγματα δεδομένων εγγράφονται στο καθένα.
Dim MyIndex, FileNumber
For MyIndex = 1 To 5 ' Loop 5 times.
' Get unused file number.
FileNumber = FreeFile
' Create file name.
Open "TEST" & MyIndex For Output As #FileNumber
' Output text.
Write #FileNumber, "This is a sample."
' Close file.
Close #FileNumber
Next MyIndex
