منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

  Dim sss As String = (Application.StartupPath & "\files\")
        For Each fil In System.IO.Directory.GetFiles(sss)
            ListBox1.Items.Add(System.IO.Path.GetFileNameWithoutExtension(fil))
            lst.Add(fil)
        Next

(03-03-18, 05:27 AM)طالب برمجة كتب : [ -> ]

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 


افضل العاب تستمتع بها الان