Dialog Otevřít v programu ...

Private Sub ShowOpenWith(strPath As String) 

   Shell "rundll32.exe shell32.dll, OpenAs_RunDLL " & strPath 

End Sub

Na formulář přidejte tlačítko. Na událost Click tlačítka:

Private Sub Command1_Click()

   ShowOpenWith "c:\myfile.txt"

End Sub
   

Zpět