poostrator
یک شنبه 01 دی 1387, 18:47 عصر
جهت نمایش محتویات یک پوشه( به همراه پوشه و فایل درون آن پوشه ) در یک لیست باکس چه باید کرد
ممنون می شم
r0ot$harp
یک شنبه 01 دی 1387, 19:28 عصر
دوست عزیز این ساده ترین کد برای این کار هست :
Private Sub Form_Load()
Dim Direc As String
Direc = Dir("C:\", vbDirectory)
Do While Direc <> ""
List1.AddItem Direc
Direc = Dir
Loop
End Sub
باتشکر احسان
vBulletin® v4.2.5, Copyright ©2000-1403, Jelsoft Enterprises Ltd.