Automatically Hyperlink when given part of the file name

[cenaror]

Okay so i have been searching for a way to find a file given part of its file path, such as
("\\Qes1\data\Initial Data\C005900*.pdf"
and if that file exist grab the full file path an create a hyperlink to the file

Private Sub cmdPopulateHyperlink_Click()
'First, set a Reference to the Microsoft Office XX.X Object Library
 
'Dim strButtonCaption As String, strDialogTitle As String
Dim strHyperlinkFile As String
 
'Define your own Captions if necessary
strButtonCaption = "Save Hyperlink"
strDialogTitle = "Select File to Create Hyperlink to"
 
With Application.FileDialog(msoFileDialogFilePicker)
  With .Filters
    .Clear
    .Add ".PNG Files", "*.*"     'Allow only *.png File types
  End With
  'The Show Method returns True if 1 or more files are selected
    .AllowMultiSelect = False       'Critical Line
    .FilterIndex = 1 'Database files
    .ButtonName = strButtonCaption
    .InitialFileName = "\\Qes1\data\Initial Data\C005900*.*"
    .InitialView = msoFileDialogViewDetails     'Detailed View
   .Title = strDialogTitle
  If .Show Then
    For Each varItem In .SelectedItems 'There will only be 1
      'Extract Caption and and add Address of Hyperlink (Caption#Address)
      strHyperlinkFile = Mid$(varItem, InStrRev(varItem, "\") + 1) & "#" & varItem
        Me![Link] = strHyperlinkFile
    Next varItem
  End If
End With
 
End Sub
 

Similar to this code but i don't want to have the pick the file. I want it to automatically grab the file.

All of the files are unique based on the CXXXXXX. Is there anyway to do this?

Edit: I am using access 2010

[jimatqsi]

cenaror,
Look at the Dir() command. A typical Dir() usage looks like this:

dim fname as string
dim fpath as string
dim ftemplate as string
 
fpath = "\\Qes1\data\Initial Data"
ftemplate = me.template_txt ' text box with model file name
 
fname = Dir(fpath) ' find first file in the folder
do while fname <> ""   ' until end of file names
 ' do necessary file name comparisons here
 ' and act on each file
Dir() ' get next file name in the folder
loop

It's possible to include sub-folders or ignore them.

Jim

[cenaror]

Thank you,

I was able to figure it out using the Dir() command