FileSystem.FreeFile Metode
Definisi
Penting
Beberapa informasi terkait produk prarilis yang dapat diubah secara signifikan sebelum dirilis. Microsoft tidak memberikan jaminan, tersirat maupun tersurat, sehubungan dengan informasi yang diberikan di sini.
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.