Dim path As String = "g:\autorun.inf"
        Dim sr As IO.StreamReader = New IO.StreamReader(path)
        Dim line As String = String.Empty
        Dim filename As String
        While sr.Peek
            line = sr.ReadLine
            If line.IndexOf("OPEN=") > -1 Then
                Exit While
            End If
        End While
        sr.Close()
        filename = line.Substring(line.IndexOf("=") + 1)
        Debug.WriteLine(filename)