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