[AL_BRNS]

السلام عليكم

بعد الشكر  للجميع و لزيادة الفائدة

جرب التالي

PHP كود :

Private Sub Command1_Click()
Dim strFolder As String
strFolder = Dir("C:\Program Files\*.", vbDirectory)
Do While strFolder <> ""
If Not (strFolder = "." Or strFolder = "..") Then
List1.AddItem strFolder
End If
strFolder = Dir()
Loop
End Sub 


بالتوفيق .