Partager via


FileSystem.FreeFile Méthode

Définition

Retourne une valeur Integer qui représente le prochain numéro de fichier utilisable par la fonction FileOpen.

public:
 static int FreeFile();
public static int FreeFile ();
static member FreeFile : unit -> int
Public Function FreeFile () As Integer

Retours

Une valeur entière qui représente le prochain numéro de fichier utilisable par la fonction FileOpen.

Exceptions

Plus de 255 fichiers sont en cours d'utilisation.

Exemples

Cet exemple utilise la FreeFile fonction pour renvoyer le numéro de fichier disponible suivant. Cinq fichiers sont ouverts pour la sortie dans la boucle, et des exemples de données sont écrits dans chacun d’eux.

Dim count As Integer
Dim fileNumber As Integer
For count = 1 To 5
    fileNumber = FreeFile()
    FileOpen(fileNumber, "TEST" & count & ".TXT", OpenMode.Output)
    PrintLine(fileNumber, "This is a sample.")
    FileClose(fileNumber)
Next

Remarques

Utilisez FreeFile pour fournir un numéro de fichier qui n’est pas déjà utilisé.

S’applique à

Voir aussi