Open unknown file type

[nehpets12]

Using vba how do I open a file if I dont know what it is saved as?
It can be a pdf jpeg doc or xls

This is what I use to open a pdf

 myfile = "U:\Personnel Records\Training\" & Cells(1, ActiveCell.Column).Value & "\" & Format(Cells(ActiveCell.Row, 1).Value, "0000") & ".pdf"

ActiveWorkbook.FollowHyperlink Address:=myfile, NewWindow:=True, AddHistory:=True

Thank you in advance

 

[Andrew Poulsom]

You can use the Dir function with a wildcard extension to return the name of the file.

 

[Domski]

Maybe:

myfile = Dir("U:\Personnel Records\Training\" & Cells(1, ActiveCell.Column).Value & "\" & Format(Cells(ActiveCell.Row, 1).Value, "0000") & ".*")

If myfile <> "" Then


ActiveWorkbook.FollowHyperlink Address:=myfile, NewWindow:=True, AddHistory:=True


End If

Dom

 

[nehpets12]

This works brilliantly on a file that it can open
In my folder I have a number of files with the same no but differant file extentions it trys to open the first one but stops because there is no program to open it
Example

032409.000
032409.001
032409.dwg
032409.pdf

How can I loop the code to open the files that it can open