Re: [MS_AccessPros] Displaying file names of a specific folder in a list box, and running the selected file afterwards.

 

Dear Duane,

It's Great! Thanks a lot.

Best Regards,

Kevin

On 02-Feb-2019 2:07 PM, Duane Hookom duanehookom@hotmail.com [MS_Access_Professionals] wrote:

�

Kevin,

I expect code like the following should work depending on the names of your controls and properties of your list box:

Private Sub cmdFillLbo_Click()

� � Dim strFiles As String

� � Dim strFile As String

� � Dim strFolder As String

� � strFolder = Me.txtFolderName & "\"

� � strFile = Dir(strFolder)

� � strFiles = strFile

� � Do Until Len(strFile) = 0

� � � � strFile = Dir()

� � � � strFiles = strFiles & ";" & strFile

� � Loop

� � Me.lboFileNames.RowSource = strFiles

End Sub

Private Sub lboFileNames_DblClick(Cancel As Integer)

� � Dim strFile As String

� � strFile = Me.txtFolderName & "\" & Me.lboFileNames

� � FollowHyperlink strFile

End Sub

Duane

---

From: MS_Access_Professionals@yahoogroups.com <MS_Access_Professionals@yahoogroups.com> on behalf of Qingqing qingqinga@yahoo.com [MS_Access_Professionals] <MS_Access_Professionals@yahoogroups.com>
Sent: Friday, February 1, 2019 11:14 PM
To: MS_Access_Professionals@yahoogroups.com
Subject: [MS_AccessPros] Displaying file names of a specific folder in a list box, and running the selected file afterwards.

�

Dear All,
Is it possible to display file names of a specific folder in a list box on a form?� and afterwards double click on a selected file name to open it? Thanks.
Best Regards,
Kevin



------------------------------------
Posted by: Qingqing <qingqinga@yahoo.com>
------------------------------------


------------------------------------

Yahoo Groups Links

<*> To visit your group on the web, go to:
��� http://groups.yahoo.com/group/MS_Access_Professionals/

<*> Your email settings:
��� Individual Email | Traditional

<*> To change settings online go to:
��� http://groups.yahoo.com/group/MS_Access_Professionals/join
��� (Yahoo! ID required)

<*> To change settings via email:
��� MS_Access_Professionals-digest@yahoogroups.com
��� MS_Access_Professionals-fullfeatured@yahoogroups.com

<*> To unsubscribe from this group, send an email to:
��� MS_Access_Professionals-unsubscribe@yahoogroups.com

<*> Your use of Yahoo Groups is subject to:
��� https://info.yahoo.com/legal/us/yahoo/utos/terms/

__._,_.___

---

Posted by: Kevin <qingqinga@yahoo.com>

---

Reply via web post

•

Reply to sender

•

Reply to group

•

Start a New Topic

•

Messages in this topic (4)

---

Have you tried the highest rated email app?

With 4.5 stars in iTunes, the Yahoo Mail app is the highest rated email app on the market. What are you waiting for? Now you can access all your inboxes (Gmail, Outlook, AOL and more) in one place. Never delete an email again with 1000GB of free cloud storage.

---

Visit Your Group

• Privacy • Unsubscribe • Terms of Use

SPONSORED LINKS

.

__,_._,___