[HASAN6.0]

(14-12-15, 01:44 AM)hamada558 كتب : متل هاد متلا

كود :

Dim directories() As String = IO.Directory.GetFiles("C:\", "*.*", IO.SearchOption.AllDirectories)
ListBox1.Items.AddRange(directories)

لكل الملفات والمسارات والمسارات الفرعية :

PHP كود :

Dim files() As String = IO.Directory.GetFiles("C:\", "*.*", IO.SearchOption.AllDirectories)
        Dim directories() As String = IO.Directory.GetDirectories("C:\", "*.*", IO.SearchOption.AllDirectories)
        ListBox1.Items.AddRange(files)
        ListBox1.Items.AddRange(directories)