02-12-13, 03:53 AM
02-12-13, 02:32 PM
السلام عليكم...
نرجو الاستفادة و السلام.
كود :
Private Sub GetFolders(ByVal APath As String, AListBox As ListBox)
Dim AFolder As String
If Right$(APath, 1) <> "\" Then APath = APath & "\"
AFolder = Dir$(APath, vbDirectory)
If AFolder <> "" Then
Do
If (AFolder <> ".") And (AFolder <> "..") Then
If (GetAttr(APath & AFolder) And vbDirectory) = vbDirectory Then
AListBox.AddItem AFolder
End If
End If
AFolder = Dir$
Loop While AFolder <> ""
End If
End Sub
Private Sub Command1_Click()
' مثلاً:
GetFolders "E:\VB 6 Apps", List1
End Subنرجو الاستفادة و السلام.