Salt la conținutul principal
Asistență
Conectare

Funcția FreeFile

Notă: Funcția, metoda, obiectul sau proprietatea descrisă în acest subiect este dezactivată dacă serviciul Microsoft Jet Expression rulează în modul sandbox, ceea ce împiedică evaluarea expresiilor potențial nesigure. Pentru mai multe informații despre modul sandbox, căutați "mod sandbox" în ajutor.

Returnează un număr întreg reprezentând număr fișier următoare disponibilă pentru a fi utilizat de instrucțiunea Open .

Sintaxă

FreeFile[(rangenumber)]

Argumentul rangenumber opțional este o variantă care specifică zona din care va fi returnat următorul număr de fișier gratuit. Specificați o 0 (implicit) pentru a returna un număr de fișier în intervalul 1-255, inclusiv. Specificați un 1 pentru a returna un număr de fișier în intervalul 256 – 511.

Observații

Utilizați FreeFile pentru a furniza un număr de fișier care nu este deja utilizat.

Exemplu

Notă: Exemplele care urmează demonstrează utilizarea acestei funcții într-un modul Visual Basic for Applications (VBA). Pentru mai multe informații despre lucrul cu VBA, selectați Referințe pentru dezvoltatori în lista verticală de lângă Căutare și introduceți unul sau mai mulți termeni în caseta de căutare.

Acest exemplu utilizează funcția FreeFile pentru a returna următorul număr de fișier disponibil. Cinci fișiere sunt deschise pentru ieșirea din buclă, iar unele date eșantion sunt scrise pentru fiecare.

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

Aveți nevoie de ajutor suplimentar?

Extindeți-vă competențele Office
Explorați instruirea
Fiți primul care obține noile caracteristici
Alăturați-vă utilizatorilor Office Insider

Au fost utile aceste informații?

Vă mulțumim pentru feedback!

Vă mulțumim pentru feedback! Se pare că ar fi util să luați legătura cu unul dintre agenții noștri de asistență Office.

×