طلب الدليل

السلام عليكم ورحمة الله وبركاته

لاظهار نافذة اختيار مجلد قم اولا بادراج الملف Shell32.Dll من قائمة Project>>Reference>>Microsoft Shell Controls And Automations

ثم استخدم هذا الكود

Dim Sh As New Shell
Private Sub Command1_Click()
On Error Resume Next
Text1.Text = Sh.BrowseForFolder(Me.hWnd, "Test", 1).Items.Item().Path
End Sub

وبالنسبة للامر Dir فاذا كنت تريد استخدامه للبحث عن المجلدات فاسند له القيمة vbDirectory :rolleyes:

مشكور اخى محمد المهدى :rolleyes:

شكرا لك على هذه الفائده اخي محمد المهدي ..

وهذا مثال على الدالة من الاخ الخبير هيثم القلاف :

http://uni.hiarab.net/showthread.php?t=3859