Aracılığıyla paylaş


FileSystem.FreeFile Yöntem

Tanım

İşlev tarafından FileOpen kullanılabilecek bir sonraki dosya numarasını temsil eden bir Integer 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ılabilecek bir sonraki dosya numarasını temsil eden bir tamsayı değeri.

Özel durumlar

255'ten fazla dosya kullanılıyor.

Örnekler

Bu örnekte, bir sonraki kullanılabilir dosya numarasını döndürmek için işlevi kullanılır FreeFile . 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.