[طالب برمجة]

PHP كود :

Using b As New FolderBrowserDialog
    If b.ShowDialog = Windows.Forms.DialogResult.OK Then
        Dim sss As String = b.SelectedPath
        For Each fil In System.IO.Directory.GetFiles(sss)
            ListBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(fil))
            lst.Add(fil)
        Next
    End If
End Using