Форум Команды NeTTeam

Получаем список файлов из определенной директории

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
  Dim ListBox1 As New ListBox
  ListBox1.Top = 0 : ListBox1.Left = 0
  ListBox1.Width = 200 : ListBox1.Height = 200
  Dim di As New IO.DirectoryInfo("c:\")
  Dim diar1 As IO.FileInfo() = di.GetFiles()
  Dim dra As IO.FileInfo

  For Each dra In diar1
   ListBox1.Items.Add(dra)
  Next

  Me.Controls.Add(ListBox1)
 End Sub

For Each s As String In System.IO.Directory.GetFiles("C:\")
     Me.Label1.Text &= System.IO.Path.GetFileName(s) & vbCrLf
Next