Is there anyone who can provide VB code to open "Open With" dialogbox?
in a code module:
Public Declare Function ShellExecute Lib "shell32.dll" Alias "ShellExecuteA" (ByVal hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long) As Long Sub OpenWith(ByVal xFileName As String) ShellExecute 0, vbNullString, "RUNDLL32.EXE", "shell32.dll,OpenAs_RunDLL " & xFileName, "", vbNormalFocus End Sub
And then wherever you want to show it:
Let me know how it turns out.
Received this via email:
Hello, DaniWeb IT Community team
Thank your very much for your replying about my problem. It works.
Marking thread as solved.
:) thanx for that Dani.