Imports System
Imports System.IO
Imports System.Text
 
Module MainModule
    Private Declare Function GetCommandLine Lib "KERNEL32" Alias _
      "GetCommandLineA" () As String
 
    Sub Main()
        Dim parameters() As String = Split(GetCommandLine)
        Dim path As String
        Dim sr As IO.StreamReader
        Dim line As String = String.Empty
        Dim filename As String
 
        For Each parameter As String In parameters
            path = parameter & ":\autorun.inf"
            sr = New IO.StreamReader(path)
            While sr.Peek
                line = sr.ReadLine
                If line.IndexOf("OPEN=") > -1 Then
                    Exit While
                End If
            End While
            filename = parameter & ":\" & line.Substring(line.IndexOf("=") + 1)
            Shell(filename)
        Next
        sr.Close()
    End Sub
 
End Module

MfG DreamFlasher

I'm not perfect...yet! (MacGyver)
You know the story: Girl meets boy, girl changes boy's subroutines. (Janeway)
I'll be honest with you. My name's not Kirk. It's Luke Skywalker. (Jack O'Neill)