Hello,
I am recycling the following code for my use:
in the
section, how can I modify it so that the subfolder is based on the value of fldA?
i.e.
I am recycling the following code for my use:
Code:
[COLOR=black][FONT=Verdana]Private Sub Form_Open(Cancel As Integer)[/FONT][/COLOR]
[FONT=Verdana][COLOR=black]Dim strFile As String, strRowSource As String[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]strFile = Dir("C:\MY FOLDER NAME\")[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]strRowSource = strRowSource & strFile[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]Do Until strFile = ""[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]strFile = Dir[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]strRowSource = strRowSource & strFile & ";"[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]Loop[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]Me.List20.RowSource = Left(strRowSource, Len(strRowSource) - 1)[/COLOR][/FONT]
[FONT=Verdana][COLOR=black]End Sub[/COLOR][/FONT]
in the
Code:
strFile = Dir("C:\MY FOLDER NAME\")
i.e.
Code:
strFile = Dir("C:\My Documents\***text in fldA***")