ایجاد دکمه 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...9%D8%B3%D8%B3/