Поделиться через


FileSystem.FreeFile Метод

Определение

Возвращает значение типа Integer, представляющее следующий номер файла, доступный для использования функцией FileOpen.

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

Возвращаемое значение

Целочисленное значение, представляющее следующий номер файла, доступный для использования функцией FileOpen.

Исключения

Используется больше 255 файлов.

Примеры

В этом примере функция используется FreeFile для возврата следующего доступного номера файла. Пять файлов открываются для вывода в цикле, и в каждый из них записываются некоторые примеры данных.

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

Комментарии

Используйте для FreeFile указания номера файла, который еще не используется.

Применяется к

См. также раздел