AUTORUN.INF - Run files from VB

[scandrew]

Hi,

I need my VB application to open any file, depending on the file assotiation in the windows. Something like

shell "program.exe"

but not just *.exe files
For example if it's *.jpg, VB opens it with Adobe (or whatever is assotiated), if *.htm, VB opens it with IE.

What I actually need is to autorun the html page when I insert the CD in CD drive.

Thanks,
Best regards, Andrew

[MarkT]

This may give you some ideas.

Option Explicit
 
Private 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
Const SW_SHOWNORMAL = 1
 
Private Sub Command1_Click()
Dim strDir As String
On Error GoTo OpenErr
 
    With CommonDialog1
        .CancelError = True
        .ShowOpen
    End With
    
    strDir = Left(CommonDialog1.FileName, 3)
    ShellExecute Me.hwnd, vbNullString, CommonDialog1.FileName, _
                    vbNullString, strDir, SW_SHOWNORMAL
OpenErr:
End Sub

[scandrew]

What is CommonDialog1?

[MarkT]

It is the Microsoft Common Dialog Control 6.0. You can find it under components.

[scandrew]

Thanks!!!

It works even without Common Dialog Control 6.0