show filters files form a Folder

[jimmyp75]

I have looking for a way to show only certain files that are in a Specific Folder on my Network when i click a button in Access.



The folder contains a large QTY (maybe 1000) of PDF files in it. the Filename contains a P.O. Number somewhere in it. (i.e. xxxxx-S)

If i am looking at a P.O. Number record on a Form in Access...i want to be able to click a button and open Windows Explorer and show ONLY the files that have that particular P.O. # in the filename.

I have tried using Listfiles.. and only got it working halfway. It will show the files like i want, but I would like to double click them to open them and that part is not working... so that leads me to the Windows Explorer.

Any thoughts on what direction i need to take would be greatly appreciated.

[ajetrumpet]

why not list the files recursively in a control on the form, maybe in a listbox or something? then on the doubclick event of the listbox, open the file via code, by way of using the selected name in the listbox?

[jimmyp75]

why not list the files recursively in a control on the form, maybe in a listbox or something? then on the doubclick event of the listbox, open the file via code, by way of using the selected name in the listbox?

I used this...
Call ListFiles("S:\GEIT\ShipTicketsandOrderConf", "*" & [JWJ_PO_Num] & "*", , Me.lstFileList)

this works in the fact that it shows just the files that i want in a listbox, but i cannot get the "double-click to open" to work.

[ajetrumpet]

the double click will be part of the code behind the listbox. e.g. -

application.followhyperlink "drive:\folder\folder\" & me.listbox

[jimmyp75]

My section of code looks liks this... it is SOOO close and it is got to be something so simple that i am overlooking.
(ignore the remarked-out lines... just stuff i have been trying )


Private Sub lstFileList_DblClick(Cancel As Integer)
filepath = "S:\GEIT\ShipTicketsandOrderConf\"
'Application.FollowHyperlink "filepath\ & " * " & [JWJ_PO_Num] & " * " & FileName"
'Application.FollowHyperlink "S:\GEIT\ShipTicketsandOrderConf\" & Me.ListBox
Application.FollowHyperlink "S:\GEIT\ShipTicketsandOrderConf\" & Me.lstFileList

End Sub

when i double click on the Path in the Listbox, it goes into Debug mode and highlights the last line (not END SUB)

[ajetrumpet]

is your filename in the listbox the complete name? what's the message say? are you missing a backslash? It's probably any of the above reasons.

if your box says:

myfile

and not:

myfile.extension

then obviously VBA sees:

application.followhyperlink "path:\myfile"

which it can't execute. Right?