ایجاد دکمه browse در یک فرم

[nooghaby]

سلام
چگونه می شود در یک فرم اکسس دکمه ای طراحی کرد که عملکردی شبیه به دکمه browse در ویندوز داشته باشد. یعنی با زدن آن و انتخاب یک فایل، مسیر کامل در تکست باکس کنار آن درج شود؟
ممنون از کسانی که راهنمایی می کنند.

[mazoolagh]

از filedialog استفاده کنین

[nooghaby]

از filedialog استفاده کنین

با سلام و تشکر
می شود کمی بیشتر و دقیق تر توضیح دهید
سپاس

[CyborgHawk]

با سلام


Public Function FolderSelection() As String
Dim objFD As Object
Dim strOut As String


strOut = vbNullString
'msoFileDialogFolderPicker = 4
Set objFD = Application.FileDialog(4)
If objFD.Show = -1 Then
strOut = objFD.selecteditems(1)
End If
Set objFD = Nothing
FolderSelection = strOut
End Function


Public Function FileSelection() As String
Dim objFD As Object
Dim strOut As String


strOut = vbNullString
'msoFileDialogFilePicker = 3
Set objFD = Application.FileDialog(3)
If objFD.Show = -1 Then
strOut = objFD.selecteditems(1)
End If
Set objFD = Nothing
FileSelection = strOut
End Function


منبع

http://www.fardanesh.ir/%D8%B4%DB%8C%D8%A6-filedialog-%D8%AF%D8%B1-%D8%A8%D8%B1%D9%86%D8%A7%D9%85%D9%87-%D9%86%D9%88%DB%8C%D8%B3%DB%8C-%D8%A7%DA%A9%D8%B3%D8%B3/