FreeFile, fonction
Mise à jour : novembre 2007
Retourne une valeur de type Integer représentant le prochain numéro de fichier disponible pouvant être utilisé par la fonction FileOpen.
Public Function FreeFile() As Integer
Exceptions
Type d'exception |
Numéro de l'erreur |
Condition |
|---|---|---|
Plus de 255 fichiers sont en cours d'utilisation. |
Consultez la colonne « Numéro d'erreur » si vous mettez à niveau des applications Visual Basic 6.0 qui utilisent la gestion non structurée des erreurs. (Vous pouvez comparer le numéro d'erreur par rapport à Number, propriété (objet Err).) Toutefois, lorsque cela est possible, vous devez envisager de remplacer un tel contrôle d'erreur par Vue d'ensemble de la gestion structurée des exceptions pour Visual Basic.
Notes
Utilisez la fonction FreeFile pour fournir un numéro de fichier encore non utilisé.
Exemple
Cet exemple utilise la fonction FreeFile pour retourner le prochain numéro de fichier disponible. Cinq fichiers sont ouverts à l'intérieur de la boucle et des données exemple sont écrites 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
Notes du développeur sur Smart Device
Cette fonction n'est pas prise en charge.
Configuration requise
Espace de noms :Microsoft.VisualBasic
**Module :**FileSystem
**Assembly :**bibliothèque Visual Basic Runtime (dans Microsoft.VisualBasic.dll)