Hyperlink to single file in folder

[bchacket]

I have a database that stores folders for several different parts. What I am trying to do is have vba code that will find a folder within a part folder labeled "current drawing" and then hyperlink the only file in that folder. This file may change from time to time but there should only ever be one file in the folder. I all ready have a code that find the part folder and creates a hyperlink to that but the problem I have with hyperlinking to a drawing file is that the drawing file name could be anything.

 

[Andrew Poulsom]

Please post your current code. You can use the Dir function to return the file name.

 

[bchacket]

Please post your current code. You can use the Dir function to return the file name.

Dim Partnumber As Double
Dim CusName As String
Dim CusFirstLetter As String


Partnumber = PartnumberTextBox.Value
CusName = CusNameTextBox.Value
CusFirstLetter = Left(CusName, 1)

With Worksheets("Parts")
.Hyperlinks.Add Anchor:=.Range("E" & (ActiveCell.Row)), _
Address:="\\Engineering\Project\Customers\" & CusFirstLetter & "\" & CusName & "\" & Partnumber, _
ScreenTip:="Click to Open " & Partnumber & " Part Folder", _
TextToDisplay:="OPEN"
End With

This is what I use to hyperlink the part folder

 

[Andrew Poulsom]

Untested, but try:

Address:=Dir("\\Engineering\Project\Customers\" & CusFirstLetter & "\" & CusName & "\" & Partnumber) & "*.*", _