FileSystem.FreeFile Yöntem

Tanım

İşlev tarafından Integer kullanılabilen bir sonraki dosya numarasını temsil eden bir FileOpen değer döndürür.

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

Döndürülenler

İşlev tarafından FileOpen kullanılabilen bir sonraki dosya numarasını temsil eden bir tamsayı değeri.

Özel durumlar

255'ten fazla dosya kullanılıyor.

Örnekler

Bu örnek, FreeFile bir sonraki kullanılabilir dosya numarasını döndürmek için işlevini kullanır. Döngü içinde çıkış için beş dosya açılır ve her birine bazı örnek veriler yazılır.

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

Açıklamalar

Henüz kullanılmayan bir dosya numarası sağlamak için kullanın FreeFile .

Şunlara uygulanır

Ayrıca bkz.