Tomboの補助ソフト

EBtはすごく良いソフトです。メモのリンクには圧巻!!自分の使い方にはとてもマッチしています。
が、ファイル数が1000件以上/月になると絶えられない遅さ・・・。PCならサクサクなのですが・・・。
今まではTomboをメインとして使用してきました。でもEBtのリンクの良さは魅力です。そこでTomboでなんとかリンクが出来ないか・・・。
JUsquidを外部アプリとして使用してリンクを取る方法を試しました。でも自分の環境ではIE Mobileが開いてしまい、カレントフォルダのファイルにはリンク出来ません。
じゃ、外部アプリを作れば?ということで作りました。
でも、ちょっと使う側に工夫が必要です。Tomboのファイルは基本的に.txtです。ファイル名.txtに対応してファイル名.jpgなどのファイルを作っておきファイル名.txtをTomboから外部アプリ1or2で起動すると拡張子に関連付けされたアプリケーションが開きます。
現在のバージョンでは、bmp .csv .doc .gif .htm .html.jpg .pdf .png .xlsに対応しています。
http://loop.dip.jp/OpenGraphics.lzhから落とせます。Micosoft Visual Basic 2005で作られています。コンソールアプリです。ドキュメントはありません。簡単すぎるのでソースも掲載します。

    Imports System.IO
    imports System.Text
    Module mainModule
    Sub Main(ByVal args As String())
        If args.Length = 0 Then
            Return
        End If
        Dim fileName As String = args(0)
        Dim anotherFileNotExtension As String

        anotherFileNotExtension = Path.GetDirectoryName(fileName) & "\" & Path.GetFileNameWithoutExtension(fileName)

        '全ての種類を開く仕様とする
        Call OpenFile(anotherFileNotExtension & ".bmp")
        Call OpenFile(anotherFileNotExtension & ".csv")
        Call OpenFile(anotherFileNotExtension & ".doc")
        Call OpenFile(anotherFileNotExtension & ".gif")
        Call OpenFile(anotherFileNotExtension & ".htm")
        Call OpenFile(anotherFileNotExtension & ".html")
        Call OpenFile(anotherFileNotExtension & ".jpg")
        Call OpenFile(anotherFileNotExtension & ".pdf")
        Call OpenFile(anotherFileNotExtension & ".png")
        Call OpenFile(anotherFileNotExtension & ".xls")
    End Sub

    Sub OpenFile(ByVal fileName As String)
        Dim pInfo As New ProcessStartInfo()
        If File.Exists(fileName) = True Then
            pInfo.FileName = fileName
            Process.Start(pInfo)
            Return
        End If
    End Sub
End Module