スポンサーサイト

--年--月--日 --:--

上記の広告は1ヶ月以上更新のないブログに表示されています。
新しい記事を書く事で広告が消せます。

Notesのプログラムディレクトリを取得する

2009年09月01日 00:14

 NotesのデータディレクトリはNotes.iniから取ればいいと思うのですが、プログラムディレクトリは取得する何かいい方法はあるのでしょうか?

こういうLotusScriptのステートメントとか関数ってなかったっけ?と思ったのですが見つからなかったのでこんなのを作ってみました。レジストリから取得しています。

なので、複数端末を入れているような環境では正しく動かないとは思いますが簡易な方法としてはいいのではないでしょうか。

これも簡単なコードですが、WSHオブジェクトを呼び出してレジストリ値を取得するサンプルとしても流用出来るのではないかと思います。




Sub Click(Source As Button)
' C:\Lotus\Notes\ を返します
Msgbox GetProgramDir
End Sub

Function GetProgramDir() As String
GetProgramDir = ""
Set objWshShell = CreateObject("WScript.Shell")
strValue = objWshShell.RegRead("HKLM\SOFTWARE\Lotus\Notes\Path")

If Right(strValue,1) <> "\" Then
strValue = strValue & "\"
End If

GetProgramDir = strValue
End Function





コメント

  1. Re: Notesのプログラムディレクトリを取得する

    いつも拝見させていただいております。

    notes.iniの「NotesProgram」ではいけないのでしょうか?
    Administratorヘルプには見あたりませんでしたが、
    こちらのURLには少なくとも、サーバのプログラムディレクトリは取得できると書いてあります。
    http://www-06.ibm.com/jp/domino04/lotus/support/faqs/faqs.nsf/all/731361

    私のノーツクライアント8.5にもこのパラメータはありました。

    ちょっと気になりましたので。

  2. 長島 広隆 | URL | -

    Notes.ini を取得する場合

    ありがとうございます。
    NotesProgram 行はクライアントだと無い場合も多かったのでこういう方法を使っています。
    エントリがある場合にはご利用になっていいのではないでしょうか。
    少なくとも、Notes.ini にDirectory行が無いと正しく動きませんが、NotesProgram行は無くても動くパラメータなので必ずある、と仮定できないのではないかな、と思ったのがNotes.ini 以外の方法を考えていた理由です。

コメントの投稿

(コメント編集・削除に必要)
(管理者にだけ表示を許可する)

トラックバック

この記事のトラックバックURL
http://hnagasim.blog8.fc2.com/tb.php/222-ef522b5c
この記事へのトラックバック


最新記事


上記広告は1ヶ月以上更新のないブログに表示されています。新しい記事を書くことで広告を消せます。