Bagikan melalui


FileSystem.FreeFile Metode

Definisi

Mengembalikan Integer nilai yang menunjukkan nomor file berikutnya yang tersedia untuk digunakan oleh FileOpen fungsi.

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

Mengembalikan

Nilai bilangan bulat yang mewakili nomor file berikutnya yang tersedia untuk digunakan oleh FileOpen fungsi.

Pengecualian

Lebih dari 255 file sedang digunakan.

Contoh

Contoh ini menggunakan FreeFile fungsi untuk mengembalikan nomor file berikutnya yang tersedia. Lima file dibuka untuk output dalam perulangan, dan beberapa data sampel ditulis untuk masing-masing file.

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

Keterangan

Gunakan FreeFile untuk menyediakan nomor file yang belum digunakan.

Berlaku untuk

Lihat juga