| This code displays the Open With Dialog (the one that pops up when you double-click a file that does not have an associated application). Public Sub DisplayOpenWith(strFile As String) '***PURPOSE: DISPLAY OPEN WITH DIALOG: ' PASS IT A FILE NAME ' e.g., DisplayOpenWith "C:\FileWithNoDefaultApplication.bvq" '************************************** 'on error resume next Shell "rundll32.exe shell32.dll, OpenAs_RunDLL " & strFile End Sub |
Display the Open With Dialog |
India web developer web development India | Freelance web development ecommerce web developer | Prayagasoft - web designer India, Ecommerce developer india, Ecommerce design