نمایش محتویات یک پوشه دریک لیست باکس

[poostrator]

جهت نمایش محتویات یک پوشه( به همراه پوشه و فایل درون آن پوشه ) در یک لیست باکس چه باید کرد
ممنون می شم

[r0ot$harp]

دوست عزیز این ساده ترین کد برای این کار هست :



Private Sub Form_Load()

Dim Direc As String

Direc = Dir("C:\", vbDirectory)

Do While Direc <> ""
List1.AddItem Direc
Direc = Dir
Loop

End Sub




باتشکر احسان