تحديد فولدر معين بعينه بأستخدام Browseforfolder

نزل هذا المثال

http://www.softcircuits.com/dl/vbsrc/browse.zip

بعمل بعض التغييرات يمكن الوصول إلى ما تريد

فعل الثوابت بعد

Private Const BFFM_INITIALIZED = 1

ما يهمنا هي BFFM_INITIALIZED ,BFFM_SELCHANGED ,BFFM_ENABLEOK

استبدل الكود الآتي بالتابع BrowseCallbackProc

Private Function BrowseCallbackProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal lParam As Long, ByVal lpData As Long) As Long

	Dim Path As String

	Select Case uMsg
		Case BFFM_INITIALIZED
			'Note: This code was crashing VB when the default folder was empty
			If Len(m_sDefaultFolder) > 0 Then
				'Set default folder when dialog has initialized
				'SendMessage hwnd, BFFM_SETSELECTIONA, True, ByVal m_sDefaultFolder
				'Disable OK button
				SendMessage hwnd, BFFM_ENABLEOK, 0, 0
			End If
		Case BFFM_SELCHANGED
			Path = String(MAX_PATH, 0)
			If SHGetPathFromIDList(lParam, Path) Then
				Path = Left$(Path, InStr(Path, Chr$(0)) - 1)
				If Path = m_sDefaultFolder Then
				 MsgBox "Folder has been selected !"
				 'Enable OK button
				 Call SendMessage(hwnd, BFFM_ENABLEOK, 0, 1)
				End If
			End If

	End Select
End Function

ضع مسار المجلد في الـ Edit وجرب المثال ...

غير في الكود كما تشاء فقط عليك معرفة رسائل الـ Shell وما تعني وكيف يتم إستخدامها ...