VB.Net/File Directory/FreeFile

Get an available file number

<source lang="vbnet"> Imports System Imports System.Collections.ObjectModel Imports System.IO Public Class MainClass

  Shared Sub Main()
       " Get an available file number.
       Dim file_num As Integer = FreeFile()
       Console.WriteLine( file_num )
  End Sub 

End Class

      </source>