   For i = 0 To tok.TokenCount - 1
            If Len(tok.OptionName(i)) = 0 Then
                sInfFile = NormalizePath(GetFileDir(tok.Token(i))) &amp; App.Title
                 &amp; ".inf"
                If Len(Dir$(sInfFile)) &gt; 0 Then Exit For
                sInfFile = ""
            End If
        Next
    End If
    If Len(sInfFile) = 0 Then
        sInfFile = NormalizePath(CurDir$) &amp; App.Title &amp; ".inf"
        If Len(Dir$(sInfFile)) = 0 Then sInfFile = ""
    End If
    If Len(sInfFil