{"id":50,"date":"2013-09-10T19:23:41","date_gmt":"2013-09-10T19:23:41","guid":{"rendered":"http:\/\/access-diva.com\/blog\/?p=50"},"modified":"2015-12-21T21:19:53","modified_gmt":"2015-12-22T02:19:53","slug":"followhyperlink-to-file-regardless-of-file-extension","status":"publish","type":"post","link":"https:\/\/access-diva.com\/blog\/?p=50","title":{"rendered":"FollowHyperlink to file regardless of File Extension"},"content":{"rendered":"

To open a file regardless of the File Extension you can use…<\/p>\n

The below is run from a Command Button on a Form the has a Control listing all the files in said directory.<\/p>\n

Windows XP…<\/p>\n

\r\n     Dim strFileName As String\r\n     \r\n     strFileName = Dir("C:\\Documents and Settings\\Regina Whipp\\My Documents\\YourFolcer\\" & Me.FieldOnYourFormThatHasFileName & "*")\r\n     Application.FollowHyperlink ("C:\\Documents and Settings\\Regina Whipp\\My Documents\\YourFolder\\" & strFileName\r\n<\/pre>\n
Windows 7…<\/p>\n
\r\n     Dim strFileName As String\r\n\r\n     strFileName = Dir("C:\\Users\\YourUserName\\Documents\\YourFolder\\" & Me.FieldOnYourFormThatHasFileName & "*")\r\n     Application.FollowHyperlink ("C:\\Users\\YourUserName\\Documents\\YourFolder\\" & strFileName\r\n<\/pre>\n
P.S. Make sure you change the names of *YourFolder<\/strong>* and *YourUserName<\/strong>* to match your machine or your Users machine.\u00a0 You do want to add some code to handle opening a File that has an extension for a program not available to the User.<\/p>\n
Side Note:<\/strong> Why did I just put this all on one line… because FollowHyperlink<\/strong> cannot translate Wildcards.<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"excerpt":{"rendered":"
To open a file regardless of the File Extension you can use…<\/p>\n
The below is run from a Command Button on a Form the has a Control listing all the files in said directory.<\/p>\n
Windows XP…<\/p>\n
 Dim strFileName As String strFileName = Dir("C:\\Documents and Settings\\Regina Whipp\\My Documents\\YourFolcer\\" & Me.FieldOnYourFormThatHasFileName & "*") Application.FollowHyperlink ("C:\\Documents and Settings\\Regina […]<\/p>\n
<\/div>\n
<\/path><\/svg><\/i> \"Loading\"<\/p>\n
<\/div>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[51,41],"tags":[23,24],"class_list":["post-50","post","type-post","status-publish","format-standard","hentry","category-method","category-vba","tag-followhyperlink","tag-open-file","odd"],"_links":{"self":[{"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/50","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=50"}],"version-history":[{"count":14,"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/50\/revisions"}],"predecessor-version":[{"id":275,"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=\/wp\/v2\/posts\/50\/revisions\/275"}],"wp:attachment":[{"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=50"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=50"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/access-diva.com\/blog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=50"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}