Open folder based on cell value
On Jan 28, 12:53*pm, GS wrote:
Try...
* Dim lRow As Long
* lRow = ActiveCell.Row
* Const sInitPath As String = "C:\Users\Public\Pictures\" '//main path
* 'Add subfolder[s]
* strpath = sInitPath & Cells(lRow, "B") & "\" & Cells(lRow, "C")
* strfile = Dir(strpath & "\*.jpg")
--
Garry
Free usenet access athttp://www.eternal-september.org
ClassicVB Users Regroup! comp.lang.basic.visual.misc
|