open different files extensions based on cell value

[Hasson]

hi

I look for macro to search any file extension (docx,pdf,jpg. .and so on ) , if there is existed then should open , if there is not existed the file not existed then show message inform me this is not available.

the cell which fill the file name should b1(note: if it's possible write without extension of file) and the directory contains many folders and subfolders in this directory "C:\Users\cmm\Desktop\search"

 

[Hasson]

thanks

I 've found the problem if I n have the files is in directly directory . it doesn't open and gives me the message file is not available and when put the files in subfolders . it open them . can you fix it please ?

 

[DanteAmor]

After this line:
sPath = "C:\Users\cmm\Desktop\search"

Add this line:
xfolders.Add sPath

 

[Hasson]

that's magnificent ! thanks Master

 

[DanteAmor]

I'm glad to help you. Thanks for the feedback.