Dim dir As New System.IO.DirectoryInfo( _
          System.IO.Directory.GetCurrentDirectory)
        Dim files As System.IO.FileInfo() = dir.GetFiles("*.BTI")
        Dim file As System.IO.FileInfo
        Dim name As String
 
        Dim i As Integer = 1
 
        For Each file In files
            gTeachin(i) = file.Name
            Me.cbTeachin.Items.Add(name)
            i = i + 1
        Next

mfg
rt